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¢ 1. ABSTRACT 
3 THIS PROGRAM IS A HARUWARE DIAGNOSTIC FUR THE 
H 4046 MOVING HEAD DISK CONTROLLER AND ADAPTER 
H LOGIC. IT IS ASSUMED THAT THE DISK TERMINAL 
H IS FUNCTIONING PROPERLY. 
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3. OPERATING PROCEDURE 
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Swes INHIBIT TTY OUTPUT. 

Sw3s PRINT FAILURE RATE. 
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Swas RECALIBRATE DURING SCOPE LOOP 

SW9= 1 SEC DELAY IN SCOPE LOOP 
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WHEN AN ERROR IS DETECTED THE PROGRAM HALTS. 
(AC3) PUINTS TO THE LOCATION FOLLOWING THE 
ERROR HALT CALL "EHALT". CONSULT THE COMMENTS 
AREA OF THE DIAGNOSTIC PROGRAM LISTING FOR 
CLUES AND POSSIBLE CAUSES OF THE FAILURE, 
PUSHING CONTINUE WILL CAUSE THE PROGRAM TO 
PRINT THE (AC3) AND ENTER A SCOPE LOOP. 

SET Sw3 TO CAUSE THE ERROR RATE (0"100%) TO BE 
PRINTED. SET Swi TO EXIT FROM THE SCOPE LOOP 
AND PROCEED TO THE NEXT TEST. 
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02 ? SOME SCOPE LOOPS WILL REQUIRE A RECALIBRATE #200000 TOTAL ERRURS, 00000 PASS 1 ERRORS 
Q3 : TO INITIALIZE THE OISK ORIVE FOLLOWING A FAILURE, 
04 ’ SET SWITCH 8 TU INTRODUCE THE RECALIBRATE. THE 
0s : UNIT TO BE RECALIBRATED MUST BE SFT INTO SWITCHES 
06 ? 6 AND 7, 
07 
06 : TESTS THAT PERFORM A RECALIBRATE HAVE A 2 SEC. 
09 ’ DELAY BUILT INTO THE SCOPE LOOP AS PROTECTION 
10 ’ FOR THE OISK ORIVE ELECTRONICS. SET SWITCH 9 
i : TO INTRODUCE AN ADDITIONAL 1 SECUND DELAY NURING 
12 ; THE SCOPE LOOP. 
13 
14 ? IN GENERAL EACH SUCCESSIVE TEST ASSUMES ALL 
1s H PRevIoOus TESTS WORK, BYPASSING ERRORS 
16 ; CAN RESULT IN CONFUSING SITUATIONS 
17 : IN THE SETUP OF MORE COMPLEX TESTS. 
18 
19 : S. DISK PACKS 
20 H ONLY USE DISK PACKS FORMATTED BY THE UGC DISK 
21 : PACK FORMATTER PROGRAM. THE DIAGNUSTIC PROGRAM 
22 3 WILL WRITE OVER MOST OF THE DISK SURFACE. 
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23 THE FORMAT MODE IS NOT CHECKED. 
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Swae 1 SEC DELAY IN SCOPE |00P 
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cry ERRORS © 
WHEN AN ERROR 18 DETECTED THE PROGRAM HALTS, 
CaACS) POINTS TO: THE LOCATION FOLLOWING THE 
ERROR HALT CALL: “WEHALT®,. CONSULT THE COMMENTS | 
AREA OF THE DIAGNUSTIC PROGRAM LISTING FOR 
CLUES AND POSSIBLE CAUSES OF THE. FAILURE, 
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TO INITIALIZE THE DISK ORIVE FOLLOWING A FAILURE, 
SET SmITCR 3 TO INTRODUCE THE RECALIBRATE, THE 
UNIT TO BE RECALIBRATED MUST BE SET INTO SWITCHES 
5S AND 6, 


TESTS THAT PERFORM A RECALIBRATE MAVE A 2 SEC, 
DELAY BUILT INTO THE SCOPE LOOP aS PRUTECTION 
FUR TmeE OISK JRIive cLECTRONICS, SEY SWITCH 4 

TU INTRODUCE AN ADOLTIONAL 1 SECOND OELAY OURING 
TRE SCOPE LOOP, 


IN GENERAL EACH SUCCESSIVE TESY ASSUMES ALL 
PREVIOUS TESTS wORK, BYPASSING ERRURS 

CAN RESULT IN CONFUSING SITUATIONS 

IN THE SETUP QF MORE COMPLEx TESTS, 


5. Vise Pacas 


ONLY uS& UISK PACKS FORMATTED BY The vGC LISK 
PACK FORMATTER PRUGRAM, THE DIAGNOSTIC PROGRAM 
WILL WRITE G¥ER MOST OF THE O1SK SURFACE, 

ThE FORMAT MODE IS NOT CHECKED, 





aA Certs 


@1 
#2 


oueAl 
cAwdte 
¥BUAS 
ova 
CA0hD 
oP? LAO 
ePhce?s 
evel? 
Ri | 


oAd4$ 
wteao 
OPC a7 
wtdde 
£95) 
eArgdse2 


CASS 
07956 
oveso 
EVES6 
60057 
60eGe 
rrr LB | 
evvbe 
otd83 
*ed64a 
60065 
32466 
0067 
Obe74 
wte7} 
eves2 
4oe73 
LPCT4 


eeo7s 
w2076 
36077 
“alee 
eA) 
CF LAe 
eves 
00104 
wePiA 
Ce 16 
w2LO7 
evlie 
€@)li 
d4ile 


e211 
weAlid 
orl 


eMAIN 
BAdHES 


v@SS74 
Choe2o1 
CAeKO7 
082244 
02245 
vderte 
Pt hela 
A@nasis 
onseve 


40045 
0246 
BABE 
OBCKER 
Tt) 
eBober 
ebetur 


esunr? 
2anvee 
1AeAce 
14unee 
OBoRKeL 
eeeaue 
eeeeua 
eveere 
odveer 
oAaear 
CBee? 
e@uger 
6Aavdo 
eALeue 
eneAbe 
bG4arua 
eleece 
v2unue 
e@ers4 


177775 
177773 
177767 
1777937 
177737 
177677 
177577 
177377 
170777 
175777 
173777 
167777 
457777 
437777 


evo2s) 
4060232 
6402355 


oLUC } 
IRET 
Inly 
JmP @1S 
JmP @1853 
JMP @1873 
JMP @LRUSA 
TS3 STarT 
IROSK? RANSK 
C2: 2 
eL OC 45 
EvuGsS 
ELGS? @ 
“ 
é 
a 
v,] 
etus V] 
4ddud 
toavaa 
143000 
UNTBIT? 1 
Koi 4st 2 
Koi? 4 
Koiet ie 
Kort 20 
KBqet 46 
Kpgi 10a 
Kb@s 208 
Ke73 44% 
Koes leva 
KBS3 2008 
Ko43 4048 
Keys 14888 
Kpo8 282308 
Koys,Tuet 


75148 177775 


Zerss 177773 
zZhi2s 177767 
ZBi1% 177757 
73168 177737 
Zag? 177677 
ZbBs 177577 
Z578 177377 
Z66% 176777 
Zo5s 175777 
Za 173777 
ZbS3 107777 
282% 157777 
ZBL: 197777 
TRUL3 Re Cid 
ReChii 
ReCl2 


PINTERRUPT RETURN 
PINITIALIZE 

960 TO 586 

#SET ADDR YO 33 
ISET aOGR TO 73 
#70 StEK EXERCISER 


REN FLAG 

HVEVICE CODE THIS RUN 
ynOT USED 

4 UF PASS THIS RUN 
TRETURN ADORESS 





0ua5 MAIN 
Qi VAL16 “ho2da 


RECLS 


a 06¢%b 


ay 
He 
aS 
a4 
ao 
Go 
a7 
Oe 
ay 
le 
44 
12 
1s 
14 
rE) 
16 
17 
ib 
iy 
26 


ovii7 
“ovierv 
w@i2k 
o“nl22 
wel12s 
ePi2a 
weied 
e@l2o 
o¢1e7 
ovis 
0815S) 
oALse 
ewlss 


or134 
“8155 
001356 
081387 


09146 
oP14) 
ovi4de 
onlay 
o@1aa 
oni14as 
e4i4o 
€A147 
aArse 
@0151 
ease 
08158 
eAls4 
w8155 
wvids6 
00157 
a8160 
o8161 
OO16e 
08163 
00164 
A165 


eMAIN 


nnovvs 
vUere7 
vAon 7 
wdWAS7 
dn0a77 
080177 
obes77 
088777 
001777 
083777 
087777 
617777 
037777 


vivdsel 
¢21442 
042104 
144216 


“52525 
125252 
123456 
125456 
OOEAve 
veunud 
vaunon 
eoorun 
oveune 
eeuetel 
e8eews 
wAvoaeer 
000033 
ebutue 
vuasee 
“vBvVOR 
680535 
1608357 
wouunss 
177768 
vAadtuy 
009496 


C3s 
C7: 
Ciz: 
C375 
C773 
Ci773 
C3778 
C777: 
Ci/773 
CS7773 
C77773 
Cai7s 
Cus73 


BITi3 
blT23 
HIT: 
BITS! 


C2525: 
C5252: 
RANDOM! 
RELRANS 
TEMPS 
TIMES 
TIME13 
KOOb? 
OTYPES 
NDSKS3 
TESTU 
UNUMS 
COSK? 
CYL: 
HEADS 
Sects 
HurFSs 
MSKLS 
oP1IO$s 
MSK2% 
ITRCNTS 
STALL 3 


3 

7 

17 

37 

7? 
177 
377 
777 
1777 
3777 
7777 
17777 
37777 


918421 
velede 
42104 
104210 


052525 
125252 

123456 

125456 

9 

@ 

Aa 

Dose 1,4 

a PosCART, Lm23i1, 15823146 
Qoduel PISBEUNIT @, 148d, 2382, 1283 
a + @&3 * UNIT # 

e ? 14015 @ UNIT # 
3s 

6 

a 

“4 

PREND 

164437 

464053 

177700 

) 

eSTL 


a B07 MAIN a Bw8d .mMAIN 


a1 Al @e227 vadoe IWAITS .walt 
32 WE166 woeaud C43 4 Q2 veedse vV5445 I,SSERs ,SSEK 
G3 8@167 oAdB45 C53 5 @3 oGe3l 245477 1, RCo? aRCLY 
04 OAI7H YHUH%E6 CEI 6 04 ob2S2 uBSSel 1,RC13 ehCLI 
AS wAI71 waAwYli Cilé ii OD OAZ3SS B2HD53 T.RT23 ekCL2 
@6 oH172 wHv@Q12 C12: 12 QO C4ZS4 CUO5u4S I,KCS3 eRCULS 
Q@7 OA17S wOuai1S Cis? 15 A7 ongSS 095597 Iylwts ,iwT 
OB YO174 wvddAle C10} lo C6 oteddd BA99/73 JT,ADSAT ,AVSK 
OY VOL75 wVAUPSA C3u3 3o OY oveS7 earnbe2 ISsets SET 
10 0A376 Q¥evSS CES $3 16 e@24u vvdbed I,SETP? ,SETP 
11 60177 weebsO CSO: so 14 4241 60650 T,S5TUPS ,SETUP 
12 where eAcAor Covt 64a 12 ov24e vA0775 1,thaAs ,AALT 
13 we2a1 ongnes CHS! 63 15 oV245 wODbO I,yLU0s .LUUP 
14 8202 weed7e C783 74 14 B8A244 YUS4S42 IS5S53 2953 
15 “4205 we@vl2e Ci2e3 120 1D ypoedd Budo4u3 S732 873 
10 weed UBd197 C1573 137 16 eA24o wuds6ul 1,53 25K 
17 o@205 we@er1s7 C1573 157 17 68247 eHO265 ICRLFs CLF 
18 9@206 4v@e277 C2773 277 16 e250 vtol25 IMESSs MESS 
1% 67207 Bd83i2 Cdies 312 19 oA251 HHdEe55 TLINIS 4ING 
20 G24 wGusi7 C3173 317 20 e@2ds2 Y4d772 I,tHis cA 
21 68211 BAedu2 Cadet 402 2% o4255 wuodsi5 I,v0u3 200RwW 
22 we2i2 wbud2e Caeer 42a 24 00254 vG@5u31 IRANE RAN 
23 08213 177408 C17743 1774008 25 62255 wid119 IGEN: GEN 
24 24 68250 wdd1lSe TREADS eREAD 
25 25 0257 CO5L23 IwrT3 ewRITE 
26 U2214 177406 M4008 =400 26 08260 24566 ICHK eCHECK 
27 o@215 ve@14ee Ci4uat 1440 27 86%261 049166 TUS! eVOSEK 
26 wv2lo Busser C3Guvs Soau 28 o8262 645656 I,Lv3 oLUPD 
2M BA217 e2dauP CA2K4ans 240d ey 
3e wa22u b74Aus C74KE 74200 3e eo0241 , DUSK SETUPSJSR @1],5TUP 
31 @OUO56 Ci4eKs, Tues Si 4660240 ,DUSR SETPIZJSR #O1,S5eTP 
32 00221 174008 CI74K2 174048 32 080242 ,DUSR EHALTSJSR @1,EMA 
38 eAVe7A CLBbASKHG 33 0060243 ,DUSR LOUPSJSk @1,L00 
34 34 0@0453 ,OUSR USKPs33 
35 wn22e 24447 BEGINGE LOA 1,EGGSe}h 35 0@60252 ,LUSR EnLTaJSw @1,ExH! 
36 wA223 420176 LOA 8,C3S 36 @86262 .DUSR LVOPOSISR @1,14U 
37 08224 180414 Suds @,1,S5Z2R 37 
38 W@225 482245 JMP @1S73 38 680250 MESSAUEaTSR PIMESS 
39 88220 482244 JHP @1S33 oy 600247 PCRLFSJSR @ICRLF 
40 686227 WAITSJSR @I WALT 
41 006230 SSEEKAJSR @#1,SSEK 
4e ebo231 RECLYaUSRk @1,RCO 
43 046232 RECLiIBJSR @1,RC1 
44 #802353 RECL28USR @1,kC2 
49 2U62546 RECLSSISR @1,RCS 
46 090255 ITRwATSJSR @L,1wT 
47 80256 GAUSKSJSR @1,ADSK 
4b 080246 SEEKBSJSR @1,5S 
4y CH4o2oi INITsJSe 6ILINI 
5% 240255 GeENDATBySH #ILEN 
51 WH0296 REAUESSR @IREAD 
$2 200297 WKITEBJSR ORT 
$3 evo2b’ CHECKSJSR @1CHK 
54 eO201 LUSEKEJSR #10US 
55 ¥AO253 DORwaySn #1,00 
$6 





a bony 


@1 
@e2 
as 
64 
@5 
Ao 
a7 
a8 
a9 
10 
11 
12 
ly 
14 
{5 
16 
17 
io 
19 
20 
2k 
22 
23 
24 
25 
26 
27 
26 
29 
30 
3k 
32 
$3 
34 


ensae 
00901 
OASee 
eases 
08544 
@asns 
6A5V6 
0u5o7 
eosi¢d 
Moly 


ovsile 
045138 
0014 
oasis 


w@516 
e317 
00520 
08521 
08522 


005235 
oaS24 
02525 
08526 
W527 


04530 
68531 
68532 
e855 


aMAIN 


onesusr 


erga 
H24a046 
1250y4 
6004u5 
e2elsyv 
101265 
wbo2s) 
Obe4es 
12062¢ 
044150 


W215i 
iwaieve 
wno2si 
662677 


w2e0i5s) 
024000 
12344 
GHo232 
062677 


@2u15i 
o2anol 
12344 
e06233 
062677 


bavi5) 
024462 
123444 
06254 


STARTS 


et OC 306 


JmP oi 

Loa 1,EuGS 
MUV 1,1,S2R 
UMP A, 

LUA ¥,OTYPE 
MOV &,8,SNR 
INIT 

JmP Ad 
SusZR 1,1 
STA 1,0TYPE 


LUA @,NUSKS 
MOVR 0,0,9Z2C 
RECLO 
TORST 


LDA @,NDSKS 
LUA 1,K614 
ANU 1,6,SZ8 
REChd 
TURST 


LUA @,NDSKS 
Lua 1,K618 
AnD 1,8,SZ2R 
RECL2 
TURST 


LDA @,NDSKS 
LUA 1,KB12 

ANI) 1,8,SZR 
RECLS 


HIF PARAMETERS NOY YET SPECIFIED 
uO IT NOw, 


PUNIT @ SPECIFIED 7? 


1YES, RECALIBRATE IT 


PUNTT 1 SPECIFIED 7? 


HYES RECALIBRATE IT 


PUNIT 2 SPECIFIED 7? 


FYES, RECALIBRATE Iy 


sUNIT 3 SPECIFIED ? 


FYES, RECALIBRATE IT 


a WOle 


C2954 
6P535 
06556 
04537 


e240 
easel 
ovoad 
varss 


ov54aa 
wan4as 
00546 
A547 


o@sseua 
onssi 
¢enose 
ea5ss 


60554 
wrs55 
ov556 
00557 
w4soe 


w@561 
was6e 
Goes 
A504 
v@505 


oV¥5b60 
00567 
0476 
6@971 
o2572 


0573 
who74 
ovs7s 
09576 
00977 
wrod 
“wnoul 


eM ALN 


cuvo2a) 
063700 
000242 
ono2as 


wMo2at 
6095ub 
on624a2 
490243 


evo2at 
6635935 
006242 
06243 


yno2at 
6637353 
ono2a2 
vdo24a3 


oa624) 
wh04aur 
141004 
wbO242 
ovo243 


eBo241 
061433 
1614u4 
600262 
evo2d3 


ono2al 
662435 
Lela 
e40242 
000243 


eeo24) 
ivwenue 
ob2vas 
v65433 
1224354 
£06242 
vao24a3 


Ay: 


Ags 


Aas 


ASt 


Aoi 


a7 


Abs 


SeTuP 
SKPULZ A 
ERALT 
LudPr 


Se Tur 
SaPoZ 4 
tmAaALT 
LUOP 


St TuP 
SaPoZ DSKP 
EMALT 
LUuUP 


Se TuP 
SaPLZ DSKP 
ERALT 
LOOP 


SETUP 

DIA 8,2 

MOV @,0,SZ8 
En aLT 

Luor 


SETUP 

Did @,0SKP 
MUV 8,@,SZ8 
EnaLT 

LuuP 


Setup 

DIC @,0SKP 
MUV 4,8,SZR 
ERALT 

LUUP 


SeTuP 

AUC 4,4 

QUB 4,USKP 
Old 1,USKP 
SUSZ# 1,8,SZk 
EnAaLT 

LUUP 


rChcCn SELO BUS LINt 
poK1P Tr LINE HIGH 
7USKP HAS SELO YVROUNDED, 


yCHce CK SELB BUS LINE 
sSKIP IF LINE HIGH 
sUSKP HAS SELB GROUNDED 


rCHCCK OISK PACK BUSY 
PSKIP IF BUSY 3 
r"OP BUSY" STUCK ON 


CHECK DISK PACK DONE 
ySKIP IF GONE @ 
"OP DONE" STUCK ON 


YCHECK 1/8 DATA LINES 
puta TO Device o 


PURQUNDED DATA LINE(S) 


CHECK CA REGISTER FOR 
PZEROS AFTER "RESET" 
PPOSSIBLE FAILURE OF "RESET" 
FOR THE REGISTER, 


TCHECK DISK ALDRESS ReG, 
sFOR ZEROS FOLLOWING LORST 
PFAILING REGISTER IC OR 
PPOSSIGBLE FAILURE OF “RESET” 
7UR "RESET S", 


WTRy TO LOAD CA #ITH 

FALL UNES 

yLOAD CA REGISTER 

pREAOD IT BACK 

#CHeCK "DP DATOS", 
P"OPOATIB", CA REGISTER, 
PANU LATA PATM THRU MUXIS, 


a #ii 


a. 
62 
as 
4 
te) 
Go 
a7 
Ur) 
a9 
1” 
ii 
12 
1s 
14 
15 
16 
{7 
is 
19 
20 
21 
22 
23 
24 
20 
26 
27 
28 
ay 
32 
$1 
32 
33 
34 
39 
3o 
37 
33 
3y 
40 
4\ 
42 
43 


“rone 
orers 
weona 
wAons 
OW 6A6 
68007 
ovole 


ool) 
emote 
ovols 
whold 
wAGLS 
08616 
04017 


evo2yu 
07621 
wvo2e 
OBO23 
00624 
08625 
64026 


04627 
086328 
00631 
éGo32 
BAOSS 
wvosa 
w8059 
080356 


0037 
obode 
0064) 
etode 
wbo43 
00044 
onoas 
84046 


eo MAIN 


ohoeal 
16eese 
e6enss 
060433 
125404 
eHo2de2 
o4o2a3 


eeo2al 
1e2erur 
eOsngds 
vb65053 
1250u4 
000242 
“Ao24a3 


Qb624)3 
182009 
003233 
«00453 
122414 
bbO242 
086243 


vGo24) 
a raag 
062053 
062677 
405433 
125004 
wB6242 
wdo2a3 


oto24} 
WMeabeu 
v65053 
662677 
0760433 
12504 
086242 
680243 





Ags 


Alo: 


ALL: 


Ale: 


alse 


SeTuP 

4uC @,@ 

vUB @,0SKP 
vic 1,08KP 
“OV 1,1,SZ2R 
ERALT 

LuOP 


St TuP 

ADL U,A 

UuC 4,0SKP 
Vid 1,0SKP 
MOV 1,141,528 
cmALT 

LooP 


Se TuP 

AUC 8,4 

DUC 8,0SKP 
DIC 1,0SKP 
Suba 1,6,S72% 
Enact 

LOUP 


SeTuP 

AUC 3,A 

VNd 4,05KP 

TORST 

Old 1,0SKP 

Muv 4,4,52K 
EMALT 

LOOF 


SETUP 

auc ¥,6 

DOC B,O0SKP 

TUROST 

vIC 1,0SKP 

MOV 1,1,S52R 
tract 

LuUOP 


rSEe IF 006 LOALS 

PUISK ADDRESS REGISTER 
7L.0AD CA REG, 

WREAD DISK ADDR REG, 

PIT SeOULY STILL Be ALL vi 


yS€e IF OGC LOAUS TRE 
3CA REGISTER 

1L0A0 DISK ADUR REG 
PREAD CA REGISTER 

1CA REGISTER SmMOULD 
TREMAIN ALL ZERO 


PSEE IF TrE CISK ADURESS 
MMEGISTER EXISTS 

t.0A4D IT wITm ALL 3S 
teEAD TT BACK 

YCMECK REGISTER AND 
JUATA PATNS THROUGH 

+The MUX'S 


95€e IF JTORST WIL 

CLEAR THE CA REGISTEN 
1.040 IT wITH ALL 118 
PCLEAR IT TU ZEROS (RESET) 
yeEAO IT BACK 


95€e IF TORST wIte 

CLEAR DISK ADDRESS 
teEvVISTER, LOAD ALL 32'S 
PLLcCAR TO ZEROS 

HEAD BACK 

3(81,92,84,S88,ARE CLEARED 
VTA "ReSeT" TeRY "RESET §") 





a @ale 


avoa7 
6d050 
wos) 
gvos2 
ed0d8 
ovesa 
04055 
«2056 
ovoo7 
onoesg 
YOO} 
0d062 


ov66s 
02064 
wnebds 
0vooo 
oV067 
Cuo7e 
@Un07\ 
onue7z7e 
0073 
o4o74 
“@o75 
006076 


eMAIN 


iv25e4u 
ede14e 
0B024) 
we2viad 
262053 
¥09453 
122414 
046242 
udoeas 
o2ui4a4 
iwiied 
0¥y7b6 


Hele 
040144 
wB6244 
o2h144a 
62053 
0094653 
12¢c414 
“bo24a2 
260243 
d2n14a 
11142 
0706 


#T4E FULLUW ING TEST RePLAaCES TESTS Af4 10 A2g 
#TEST UF SINGLE BIT LOAUS InTu CA (D006 2, 0S8KP) 


PAT EmayTs 


A14,293 


Subd U,#8 
SYA 4,7EMP 
ScTuP 

LOA A,TreMP 
Dud &8,0SKP 
Did 1,USKP 
Suda@ 1,4,S872R 
EmalT 

Lule 

Lua A,TEMP 


MUVZL &8,0,SZK 


JMP AL4,29=) 


aCo wILbaGuly AC1 wT LeBal 


PSTART BIT 15 


GET SINGLE BIT BACK 
POKPSNOT ERROR 


PATERATE SINGLE GIT 


HSKPBOONE 16 oOITS 
100 ONE MORE 


TTHE FOLLOWING TEST REPLACES TESTS AS@ TO AAS 
tTEST OF SlwGLE @ BIT LOAUS INTG THE Ca (DOB 6, 0SKP) 


ASU. 452 


AUCZL 2,8 
S$T4 8, TEMP 
St TuP 

LUA 4, TEMP 
Dub 3,0SKP 
DI4 1,0SKP 
SubH 1,0,52N 
ERWALT 

LOUF 

Lua 0, TEMP 
MOVGL B,8,S2C 
JmP ASO, 4501 


ISTART 8177776 


hUUT SINGLE NO BIT 
tOUTSIN? SKP 
FITERATE SINGLE NO BIT 


ICRY#@S IS DONE 16 
yOO NEXT OIT 





a 8013 


@1 
2 
93 
a4 
@5 
@o 
07 
88 
ey 
10 
i) 
le 
1d 
14 
19 
1o 
17 
18 
iy 
au 
21 
22 


00677 
O2780 
Oe7eh 
oA7Be2 
OA7AS 
08704 
0@74d 
0A706 
ov7e7 
60710 
QB741 
ea712 


ea713 
we7i4 
0P715 
@e710 
oe717 
60720 
08721 
6A7 22 
ee72s 
oe724 
“e725 
eA726 


eMAIN 


142526 
840144 
wto2al 
a20144 
COsass 
66453 
122414 
000242 
wbo243 
20144 
1a1ied 
WAW7OE 


1@2iee 
6401a4 
eeo2at 
020144 
065053 
066433 
122414 
080242 
eeo243 
w20144 
1v1142 
080766 


& 


THe FOLLOWING TEST RePLACES TESTS add TN Add 
#TEST Or SINGLE BIT LUADS INTO OSK ADRS (VOL 0, USKP) 


yAT EMALT3 


A40,613 


SUBLL 0,4 
STA 0,TEMP 
SeTuP 

Lua @, TEMP 
DOC @,0SKP 
OIC 1,0SKP 
Suse 1260,SZR 
EnALT 

Lour 

LUA @, TEMP 
MOVZL ®,@,SZR 
JMP A46,6101 


ACW WILL SGUUD ACL wILLsBad 


PSTART BIT 15 


HUET SINGLE BIT BACK 
PSKPBNOT ERROR 


PAiTeRATE SINGLE BIT 


PSKPBLONE 16 oITS 
#00 ONE MORE 


HTMHE FOLLOWING TEST REPLACES TESTS a62 10 A7?7 
TEST OF SINGLE @ BIT LOALVS INTO THE OSK ADKS (VOC 6,08KP) 


A02,773 


auCZ, @,@ 
Sta @, TEMP 
SeTuP 

Lua 8, TEMP 
OOC 4,O0SKP 
OIC 1,0SKP 
Subba 1,0,S2Z2R 
ERMALT 

LOOP 

Lua O,TeMP 
MOVUL 2,@,S82C 
JmP a02,7791 


BIr NOBILT 

Q49081 177776 
ABBMA2 177775 
OeQvAd 177773 
968018 $77767 
Ovev2a 177757 
O44 177737 
@eG@iae 177077 
@oueae 177577 
AOB4AW 177377 
Qviews 176777 
@v2ueu 175777 
Qv4vaa 173777 
14088 167777 
B20008 157777 
@40000 137777 
{w8v®@e 877777 


PSTART 0177776 


FOUT SINGLE NO bIT 
PUUTBIN? SKP 
pLTeERATE SINGLE NO SIT 


HCRY#e IS DONE 16 
900 NEXT sIT 


BIT NAME 
$Cl 
$C2 
$L4 
§C8 

$i 

$2 

$4 

Sb 

Hol 
HU2 
HO4 
HU8 
le a} 
FURMAT 
0} 

Oe 


a Pola 


a. 
a2 
83 
aa 
ao 
go 
a7 
a8 
ey 
ie 
11 
te 
i) 
14 
19 
lo 
17 
16 
19 
20 


08727 
Ue750 
00731 
a¢732 
00738 
00754 
0/95 
ou/sso 
00757 


on/ 4 
02741 
04742 
ous 4as 
an74aa 
0U7 45 
0A7 46 
09747 


e756 
0a754 
wA75e 
ga7$3 
“e/5a 
on7d5d 
wAa7so 
62757 
oe7 by 
@4/61 
A762 


eMAA 


1224u9 
0860237 
062883 
065433 
122414 
£00242 
000243 
1414 4 
@00771 


“460237 
vOS833 
£00433 
122414 
86242 
00243 
141404 
eAe771 


00241 
1A24uVv 
036134 
E72433 
o72038 
C7283 
e62eess 
600433 
125004 
080242 
20243 


A783 


A793 


A503 


Sus 3,4 

JSR @PISET 
Dus 3,05KP 
Dis 1,USKF 
SubR 1.u,SZR 
ERALT 

LOOF 

Inc 4,%,S82kR 
JmP ae7 


JSR @ISET 
DUC B,NSKF 
Dat 1,USKF 
Suse 1,4,5Z26 
EnALT 

LOOF 

ING 4,8,SZR 
JMP 4=7 


St TyP 

Sus 4,4¥ 
Lua 2,817) 
DuB 2,USKP 
Dus 2,0SKP 
008 2,D0SKP 
Dud 8,DSKP 
Ols 1,O08KP 
MUV 1,1,SZR 
ERALT 

LOOF 


HLMECK CA REGISTER, ALL 
HROSSIBLE PATTERNS 

mLQaD0 Ca 

prEAD TT BACK 

paceeG0od 

pACLEGAD 

ruO IT UNLY ONCE FOR GACH PAT 
PNEXT PATTERN 


PCMECK DISK ALVORESS REGISTER 
PALL POSSIBLE PATTERNS 
HLOAD/SREALD pAaCK 

pACo#8G000 

PACiaoAD 


NEXT PATTERN 


SSPECIAL TEST FOR 6294 
PIC PACKS, SET RIGHTMOST 
POIT IN EACH PACK WITH 

$3 SUCCESSIVE LUADS, THEN 
LOAD ZERO, MARGINAL 
pPACKS wILL MOLD THE "i", 


STESTING CA REGISTER 
paC2#G000 
pac #BA0 


a @015 


ai 
@2 
ae 
a4 
@5 
Qo 
@7 
a5 
ego 
1d 
11 
Le 
13s 
14 
19 
to 
17 
lo 
19 
2% 
2k 
22 
238 
24 
25 
20 
27 
26 
ay 
$e 
3a 
32 
33 
$4 
35 
3o 
37 
33 
oy 
4u 
4) 
42 
43 
44 
435 
46 
47 
48 


O8763 
00764 
0a765 
02766 
08767 
00770 
09771 
dA77 2 
0t773 
60774 
08775 


04/776 
wn77?7 
o1eee 
eleas 
wluee 
01083 
61694 
ol0os 
o1¢@6 
41007 
oieie 


oreds 
wtele 
e1ess 
olei4 
o1d19 
o1e16 
oLei7 
oieed 
ole2i 
e1e22 
d1¢2s 


wiced 
d1des 
eli2o 
o1€27 
wil¢ese 
eiedst 
oledse 
wOleso 
01634 
4035 
W1"d6 


eMAIN 


wbo2dal Agli 
1424u8 
es0195 
072053 
€72855 
072083 
CO2r3s 
265433 
122414 
680242 
600243 


OBo24) aves 
102400 
050186 
072933 
6720353 
e72vss 
o6evss 
665433 
122414 
080242 
e2o24s 


@4024) ABS; 
peeaue 
0301937 
e72035 
e7er3s 
072033 
H62033 
065433 
122414 
Ono242 
eao0243 


WGO24) Abat 
id246ue 
vduise 
075ASS 
w73V63 
“738803 
063033 
466453 
1224134 
wAo242 
w4o2as 


Se TuP 

Sus 4,2 
Lua 2,38172 
OUBS 2,08KP 
Oud 2,0SKP 
OLd 2,09KP 
Dus 8,0SKP 
Did 1,0SKP 
Suda 1,6,SZk 
ERALT 

LuOF 


Se TuP 

Sud 8,2” 
Lua 2,874 
Dud 2,0SKP 
Lud 2,0SKP 
Dub 2,0SK«P 
DUB 4,09KP 
Old 1,USKP 
Sud@ 1,0,5Z2% 
CHALT 

LOOP 


St TuP 

Sub 6,2 
LOA 2,81T8 
Oue 2,0SKP 
UGB 2,0SKP 
Ous 2,0SKP 
O08 @,0SKP 
UIs 1,0SKP 
Subs 1,4,S7R 
ERALT 

LOOP 


St Tue 

Sus 6,2 
LUA 2,517) 
buC 2,08KP 
Doc 2,0SKP 
VUC 2,U09KP 
Duc B,D0SKP 
UIC 1,0SKP 
SuBRe L,0,5ZK 
tCmALT 

LUUP 


pSPECIAL TEST FOR 6291 

91C PaCnS, SET POSITION « 
r(PIN 9) IN EACRh PACK WITH 
#9 SUCCESSIVE LUADS, THEN 
14040 ZEROS, MARGINAL 
pPACKS wILL HOLD A "4" 


ITESTING CA REGISTER 
paCeeGO0d 
paCiabay 


POPECIAL YEST FOR 8293 

$1C PACKS, SET POSITION 4 
POCPIN 2) IN EaCr PACK wITn 
94 SUCCESSIVE LOADS, THEN 
HL0A0 ZEROS, MARGINAL 
PPACKS wILL PULD a NE", 


STESTING CA REGISTER 
rACo#8GC00 
raCyeBbAD 


HSPECIAL TEST FOR 8293 
pIC PACKS, StT POSITION 6 
H(CPIN 12) IN cACh PACK WITH 
#9 SUCCESSIVE LOADS, THEN 
#L0AD0 ZEROS, MARGINAL 
PPACKS wILL MOLD A "4" 


ITESTING CA REGISTER 
saC2eGO0G0 
paCispad 


ySPeCIAL TEST FOR 8291 

y1C PACKS, Set PUSITION } 
i(PIN 5) OF EACH PACK WITH 
13 SUCCESSIVE LUAUS, TREN 
7,040 ZEROS, MARGINAL 
tPACKS wILL HOLD A NY", 


HTESTING DISK AUDM REG, 
rACbBGO0UD 
paC{SBAL 





a Welo 


@i 
ae 
as 
a4 
a2 
ao 
a7 
oo 
OY 
te 
4k 
te 
1s 
14 
15 
10 
17 
to 
19 
2u 
2k 
22 
23 
24 
29 
26 
27 


w1¢3s7 
144g 
e1¢e4) 
vitae 
oleas 
V1e4a4 
wl dd 
wte4o 
wiu4a7 
eldsea 
w1Z54 


01052 
oiedss 
e1e54 
o1ed9 
o1edo 
@1¢57 
vlitte 
oleh 
oleebe 
o1003 
olsoa 


wlth 
e166 
0107 
018708 
e1e7i 
ole7e 
e1073 
01074 
dte7d 
wVIt76 
o1e77 


oll 
vile. 
wile 
01185 
oiled 
e11as 
o1ino 
61107 
élile 
otlii 
ebhie 
e1iis 
o1114 
é1ii195 
ellis 
elas? 
v1l2e 
ollel 


aMAIN 


V4O241 ABD: 
142408 
wse105 
o7 S008 
u7303S38 
V7SA3S 
COSass 
066453 
122414 
uuo24de 
¢8o243 


wto24aj Avos 
1024.4 
OS¢156 
B7on38 
W7SAS3 
e75¢35 
463V$3 
“voo4asy 
122414 
0d0242 
426243 


wt62a1 Ass 
1v24yo 
bSuso7 
O75233 
073453 
¥W73033 
063453 
60458 
122414 
000242 
006243 


G20147 Bi8 
e4uaes 
w241ac 
“BO24z2 
Y664UE Biel’ 
(61403 
122418 
eHo2a2 
veo2as 
vie773 Bl.2s 
vec772 
osdel1es 
1459445 
AVVEES 
wduiod 
142415 
Ze2774 
ede7o2 


SETUP 

Sus 4,¥ 
Lua 2,61Te 
OuUC 2,0SKP 
OUC 2,059KP 
Nut 2,08KP 
DOC A,USKP 
DIC 1,08KP 
Sube 1,¢,SZK 
EMALT 

LOOP 


Se Tur 

Sus 4,6 
LUA 2,81 74 
NOC 2,USKP 
voc 2,0SKP 
YuC 2,0S8KP 
DuC B,OSKP 
OIC 1,U0S5KP 
SuUbAa 1,6,57R 
ERMALT 

LUOP 


SETUP 

Sue 4,9 
LuA 2,B3178 
DUC 2,0S8KP 
DuC 2,0SKP 
DUC 2,08KP 
OUC 8,OSKP 
Oic 1,0SKP 
Sus# 1,4,S872k 
bnact 

LudP 


Loa ¥,KLOe 
STA 9,Biel 
Lua 1,C2525 
SeTPY 

O0b 1,a 

Old 4,05KP 
Sub# 1,¢,SAR 
ERALT 

LOUr 

IsZ 38iel 

LUA 0,61,1 
Lua 2,077 
AND 2,8,S5NR 
JuP we 

LvA 2,CUSK 
Sus#e 2,0,SNR 
JnP B12 

JP Bleleal 


rsPcClay TEST FUR 8291 

P1C PaCnS, Set POSITION zg 
+(CPIN 9) OF EACr PACK wW1Tr 
15 SUCCESSIVE LOADS, THEN 
7L0AD ZEROS, MARGINAL 
IPACKS wILL RETAIN A "4", 


FTESTING YISK AVOR RED, 
paCv#G000 
pACL B5aD 


+SPcCIlAL TEST FuR 6291 

p1C PaCaS, Set POSITION a 
HCPIN 2) OF EACH PACK wlTn 
$d SUCCESSIVE LOADS, THEN 
BLOAOD ZEROS, MARGINAL 
PPACKS wIuh RETAIN A "A", 


FTESTING OISK ADDR KEG, 
pAC68G000 
pACLBbAad 


pSPcECIAL TEST FOR 8291 

IC PACKS, SET PYSITION 8 
y(PIN 12) OF EACH PACK wITH 
13 SUCCESSIVE LOADS, THEN 
HLOAD ALL ZEROS, MARLINAL 
PFACKS wILL RETAIN A "$4, 


HTESTING DISK ADOR REG, 
saCyeG000 
+aCiSBAL 


HCHECK FOR ILLEGAL 
SUEVICE SELECT BY 

POTSK PACK CONTROL 
HPERFORM "DOB" TO EVERY 
HUTMER DEVICE ADDRESS 
7ANU CHECK DSKP 

PEACH TIME TO SEE 

HIT ReECOGNIZEL THE "DOB", 


HLODE FROM HERE ON IS 
tROwK INCREMENTING TO 
PNEXT DEVICE ADDRESS 





a 0617 


O41 
de 
as 
64 
OS 
6 
07 
88 
ay 
18 
11 
12 
13 
14 
19 
16 
17 
13 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
36 
34 
32 
33 
34 
35 
36 
37 
36 
39 
40 
4\ 
42 
43 
44 
45 
46 
47 
48 
49 


wii22 
1123 
oiled 
o1s25 
01126 
21127 


O1156 
O1isi 
81152 
81133 
O1154 
€1155 
011356 


01137 
01140 
o114) 
w1i42 
O114s 
61144 
01145 


01146 
01147 
o115¢0 
@1151 
01182 
01153 


i154 
61155 
O1156 
o1157 
a1i6e 
o1i6) 
01162 
81163 
g1164 


01165 
21166 
@1167 
011728 
e1171 
wii7e 
01173 
01174 


oMAIN 


@v0241 
e2ea7a 
w611935 
065458 
006252 
@8o262 


606241 
0200720 
061155 
0682355 
065535 
€86252 
886262 


@oo2at 
2260870 
@611355 
062677 
063533 
w86252 
026202 


200241 
264433 
620216 
107404 
ee6242 
o86245 


206241 
162008 
862033 
263083 
064433 
20216 
187414 
006242 
@262435 


ovo2di 
020070 
061153 
064453 
weeu71 
125415 
086252 
#06262 


B23 


Bd) 


BS: 


Bo? 


B73 


SceTuP 

Lua 4,C1800 
OvVAS 0, DSKP 
SKP DON OSKP 

EXLT 

LOOPO 


SETUP 

LOA 4,C1800 
OGAS #,USKP 
NIOC USKP 
SKPBZ OSKP 
EMLT 

LOOPN 


Se TuP 

LDA 3,01008 
DOAS &6,0SKP 
TuRST 

SKPoZ OSKP 
ERT 

LUOPO 


SETUP 

DIA 1,0SKP 
LDA 0,C3609 
AND @,1,S2ZR 
EMALT 

LooP 


SeTue 

AUC 4,8 

008 3,0SKP 
OOC 3,0SKP 
Dia 1,08KP 
LOA 8,CS$6u0 
ANU® 0,1,SZR8 
EnALT 

LOOP 


SETUP 

LUA 8,C1809 
UVUAS 8,0SKP 
Dia 1,0SKkP 
LUA ¥,Kd5 
AnD#® 1,0,SNR 
ERLT 

LOOPN 


SEE IF (S) PULSE WILL SET 
"OP BUSY", START A 

PSEcK 

SKIP IF "DP BUSY" 8s 1 

}LHECK "OP START", "ODP pusy®, 
"SELB" OC GATE, 


rSEe IF (C) PULSE WILL CLEAR 
y"OP BUSY", START A SEEK, 
§ TREN CLEAR 


CHECK "CLEAR" 


#SEc IF LORST WILL CLEAR 
y"OP BUSY", START A SEEK, 
1 TREN CLEAR IT 


SCHECH "RESET", "CLEAR" 


ICHECK TO INSURE THAT 
PALL SEEKING FFIS ARE 
HCLEARED s¥ IORST 
pACLSBAD SEEKING 
HSTATUS FROM DIA, 
CHECK DATA TRARU MUX 


yCWECK FOR PRUPER 
PINPUT OF STATUS THRU 
PTHE MULTIPLEXORKS TO 
THE OATA BUSS OC GaTes 


PSEEKING STATUS ON 
PALL SHUULD BE ZERD, (ACI) STATUS 


sTRY TO SET "SEEKING o* 
yvTa (S) PULSE 


P"OP START" SETS "START" 
HCHECK "ADAPTER SEL", "SEEK" 
HAND "START SEEK" 


a 0016 


@1 
ae 
a3 
aa 
wo 
vo 
G7 
ad 
oy 
lo 
ii 
12 
iJ 
14 
15 
16 
17 
15 
iy 
2u 
21 
22 
23 
24 
29. 
20 
27 
25 
29 
3 
31 
32 
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FATTEMPT RESET 
PREAD STATUS 
t"St€nx LONE 3" WESET FALLED 


FIOLE STATE STATUS CHECK 


IRsw DONE & 1 


PIDLE STATE STATUS CHECK 


PADDR ERR OR END CYL 





@1055 
01656 
01657 
01668 
w106) 
€1062 


0166s 
01664 
81065 
01060 
01067 
wlo74 


B1071 
01672 
1079 
01674 
01075 
01076 
016077 
1700 


01701 
017@2 
01703 
oL17va 
01785 
81786 
01707 
01716 
o1711 


ei712 
oi/13 
1714 
01715 
e1710 
O1717 
01728 
wl72a.i 
01722 


A96243 


OW6241 
4064433 
26117 
125414 
CHo242 
veoeds 


020151 
161263 
660406 
006297 
wvo2si 
wae23s 
040252 
000243 


e20153 
1o12ee 
iwieus 
O804n6 
006257 
086252 
040235 
eA6252 
avo2as 


e2e1ot 
w2anol 
123405 
w404u6 
406237 
6402958 
wH6235 
vbo2s2 
wd6243 


8373 


Boss 


Boos 


Bad: 


Bal: 


SeTuP 

Ula 1,0S5KP 
LOA @,KB1S 
ANVa 6,1,S7R 
ERALT 

LUUP 


ScTuP 

Dia 1,0SKP 
Lua @,CSs 
ANUM 1,8,S5Zk 
Ernalt 

LOOP 


LO& 8,NOSKS 
MUVR 0,@8,SNC 
JmP 848 

JSR @SET 
RECLO 

TTRwT 

Emit 

LOOP 


LUA 3,NUSKS 
MOVR 0,0 
MUVR 0,0eSNL 
JmP 64} 

JSR @1StT 
RECLI 

ITRwT 

ERALT 

Loop 


Lua 4,NUSKS 
LUA 1,Kd18 
ANID 1,0,S5NR 
JmP 642 

JSR @1StT 
ReCL2 

ITRWT 

EMLT 

LOOP 


HIOLE STATE STATUS CHECK 


WCreCK wORD ERROR ® 1 


PIOLE STATE STATUS CHECK 


PUATA LATE UR ERR 


SEE IF "SEEK DONE a" 
PWILL CAUSE INTERRUPT 
(SKIP IF NO UNIT B) 


POET “SEEK DONE Q" 

P1S TRERE AN INTERRUPT? 
INO, CRECK "INTERRUPT", 
"OP INT REQ", 


*SEce IF "SEEK DONE 1" 
twILL CAUSE INTERRUPT 


HCSKIP IF NU UNIT 1) 


ISET "SEEK DONE 1" 

JIS THERE AN INTERRUPT 7 
INO, CHECK "INTERRUPT", 
y"OP INT REQ", 


#SEe IF "SEK DUNE 2" 
PwILL CAUSE INTERRUPT 


(SKIP IF NO UNIT 2) 


#SET "SEEK DONE 2" 

11S THERE AN INTERRUPT 7? 
1NO, CHECK "INTERRUPT", 
"OP INT REW", 


a Ueeo 


017209 
wi7ed 
01725 
01720 
01727 
17350 
wi73i 
wl7se2 
01753 


01754 
61739 
01736 
w1737 
01/46 
01741 
01742 
w1749s 
01744 
61745 
01746 


w1747 
01750 
wi7o1 
wi75e2 
01793 
01754 
01755 
w0175o0 
01757 
01700 
w17o1 


i762 
01/65 
1764 
01769 
017606 
01767 
vi770 
01771 
01772 
01775 


01774 
01775 
01/770 
01777 
weed 
e2e¢t 
e2uhe 
02009 
e2u04 
w2¢ea5 


eK AIN 


vedi O4 
wearo? 
12345 
euv aye 
040257 
440254 
oH0295 
VYo292 
eHho243 


etoZav 
«20to2 
COStSS 
c€2av7e 
461333 
Jdd107 
dvoed7 
o202er 
123415 
0460242 
otoeds 


eV62ae 
62152 
003053 
B2007K 
061333 
630107 
046227 
020064 
129414 
oeo242 
vso2as 


w40242 
OuUo2so 
0v6246 
onvou77 
020065 
2S0R64 
107414 
147414 
ovo2d2 
é€20243 


cno2av 
euo2sé 
040246 
voedsey 
“2utod 
oSGn04 
107414 
147414 
ut6242 
€00243 


42s 


Bass 


44s 


Ba53 


8403 


Luba A,NUSKS 
LUA 1,K512 
ANI 1,0,S5NR 
JmP 943 

JSK @ISET 
RECLS 

ITTrRaT 

EHLT 

LOOP 


SeTri 

Lua ¥, TESTU 
Duc ¥,DSKP 
LUA 8,KB6 
DOAP 0,USKP 
LUA 2,C5 
walt 

Lua 8,C74« 
Awe 1,0,S5NK 
EHALT 

LuOP 


ScTrRi 

Lua 4, TESTU 
DUC W,NSKP 
Lua B,Kd6 
Duar By USKP 
Loa 2,C5 
wall 

Lua ¥,KB1a 
ANUR 1,0,SZK 
Enact 

LOOP 


SeTri 

GAOSK 

Scrtn 

77 

LUA A,Ko9 
LOA 2,KB16 
AND#® 0,1,5Z2R 
ANUS 251,570 
EnaLt 

LOOP 


SETFi 

GAUSK 

SeeK 

Sea 

LUA 8,K389 
LUA 2,K0108 
ANJA welsSZR 
Anva@ 271,528 
thaLt 

LooP 


poEc 1F "SEex DONE 3" 
FeILL CAUSE INTERRUPT 


BC(SKIP IF NO UNIT 3) 

9SET "SEEK DONE 3" 

11S TrERE AN INTERRUPT 7@ 

INO, CHECK "JNTERRUPT", 

"ORF INT REG". 

tTESY SEEK YO CYLINDER BO 

H(FIRST ATTEMPT AT COMPLETE SEEK) 
PSELECT AN ACTIVE UNII @ 

WSEEK 4 

pwALT So@mMS (OR UNTIL "DUNE") 
pACLBSTATUS 

nO StEK DONE STATUS 

PUMECK "SEEK", "CONTROL 1°, "CYL", 
P"HOSDIR", "CONTROL 2", SEWUENCING, 
#TEST SEEK TO CYLINDER © 

PSELELT AN ACTIVE UNIT w# 

SEEK | 

ywALT SQOMS (OR UNTIL "DONE") 
paCisSTaTus 

ySEEK ERROR STATUS 

PCHECK "SEEK", "CONTROL 2", "CYL", 
PYHOSDIR", "DIFF", "CONTROL 2", 


PTEST SEEK CYLINDER 77 (ACTAL) 


PACLBENDING STATUS 


HSErk ERROR Ow 
yNO READY STATUS 


HTEST SEEK CYLINDER 308 (OCTAL) 


PACLBENDING STATUS 


ISEcK ERROR On 
tnO READY STATUS 


a 0027 


@1 
a2 
as 


wesno 
02607 
v2eieu 
eect 
2612 
e2e1s 
02014 
e2e15 
e2e16 
e2e17 
weeded 


gece 
d2022 
e220 
02024 
o2v25 
02026 
62¢27 
v2ese 
w2es1 


C2use 
203s 
62054 
w2ess 
02%¢36 
42237 
w2e4dd 
e204) 
e242 
e2eas 


02044 
02¢45 
02646 
02647 
e2¢e5u 
o2¢53 
42ese2 
02083 
02054 
o2u55 


eMAIN 


edo2al 
000256 
080246 
ebuacy 
646235 
OAd4sel 
eavioa 
669477 
122434 
Q8624e2 
0@oe4as 


veo2an 
046256 
680246 
VaePrER 
064233 
0@6235 
O4e4ane 
@86242 
o76243 


290240 
e2ene7 
062977 
46206 
680246 
CBOAKE 
wd0205 
geeave 
eeo242 
246243 


gao2eae 
620767 
2628077 
062677 
220236 
626246 
BAaenve 
w@62s0 
¥G@60242 
2Ao243 


8473 


6483 


bags 


856: 


StTRt 
GADSK 

Seen 

2 

ITRwT 

JMP ol 
Lua 4,CUOSK 
InTa } 
SuBba 1,¢,S2% 
EWAT 

LUUP 


Setry 
bAUSK 
SEEK 

a 

NITUL USKP 
ITRewT 

JmP ,o2 
EraLT 
LUOP 


Serri 

LuA A,Ko7 
MSKU 
GAUSK 
Sten 

a 


L1iReT 
JMP #2 
EMALT 
LUUF 


Sr tPt 

LUA 0,K07 
MSKuU 4 
Toxst 
GAUSK 
Stew 

a 

TTRwT 
Era? 
LOUP 


HCHOOSE AN ACTIVE DISA 

PAND SET INTERRUPT VIA SEEK, 
1CHeCK FOR PROPER DISK 
VAODRESS RESPONSE TO INnTA 
PALLOWw INTERRUPT 


HGET THE ADDRESS 
PINTA FAILEL, 
paC¥vaucoo 

paCi BBA 


WSEc LF (C) PULSE wILL 

wCLeam "DP IN] REQ" 

ISET "INTERRUPT" WITH 

ta SEtK 

TLLEAR INT REG 

CHECK FOR INTERRUPT 

INO INTERRUPT, OKI 

1(C) TMRU "CLEAR ALL" FAILS TO 
HCLEAN "DOP INT REQ", 


PINSURE THAT "DOP INT DISABLE" 
PINAISITS INTERRUPTS 

SET OTSABLE 

GET ACTIVE UNIT w IN (aC2) 
START A SEEK 


91S THERE AN INTERRUPT 7? 

yn0, GOOO 

wmSKO BIT 7 O10 NOT SET "UP DISABLE" 
PANU INHIBIT "OP INT wEQ", 


PINSURE THAT LOmST WILL 
HClLeaw "DP INT OTSABLE" 
FSET "OF INT DISABLE" 
rCLEAR IT 

PUET ACTIVE UNIT w IN (AC2) 
ISTART A SEEK 


11S TRERE AN INTERRUPT 
tNO, CRECK RESET OF "UP INT 
POISABLE", 





a Ao2a 


61 
Be 
@3 
ur) 
ao 
Bo 
a7 
Ao 
ey 
1s 
$1 
le 
13 
14 
19 
16 
17 
16 
sy 
26 
24 
22 
23 
24 
25 
26 
27 
26 
ay 
3u 
31 
32 
38 
34 
35 
do 
37 
36 
Sy 
4e 
44 
4d 


“w2eso 
02057 
d2uoe 
B2e64 
o2ko2 
e2e6s 
w2d64 
nedos 
02060 
W2007 
02076 
w2¢7i 


e2c7eé 
~2073 
02074 
weu7s 
62u76 
02077 
“21rd 
v210) 
“2142 


e2tes 
2194 
02185 
e2190 
w21a7 
e2ti¢ 
wetiih 
d2il2 
e215 
2114 
w21is 
02116 
42117 


62126 
é2ie1 
€2122 
c2i298 
“2iea 
2125 
62120 
62127 
0215¢ 


eMAIN 


devlSi wore 


101263 
Cuva2s 
evo2zal 
15e5ev 
800246 
carrer 
woaadg’s 
“2e0vos 
123415 
Z4OP 42 
002403 


oro24a) 
15252? 
30246 
eBehue 
0o4aass 
R20Ve4 
123414 
evo2de 
4no24as 


w2ui5i 
1V1L20F 
161203 
w®e4e3 
oGo24)} 
wdsenoe 
6460246 
BAGH UE 
004433 
#20005 
120415 
060242 
680243 


Bvo2al 
“duvor 
wowoedge 
“aoree 
064453 
w20ro4 
1204)4 
240242 
046243 


Bo23 


6553 


B43 


LUA B8,NUSKS 
MUVM @p0eSNC 
JmMP 853 

Se TuP 

Suddl 2,2 
StEK 


a 

VLA 1,0SKP 
Lua A,Ksg9 
ANDAR 15¢,SNR 
Enact 

LUO 


SeTuP 
SuBZL 2,2 
SEEN 

a 
ULA 4,D0SKP 
LDA A, KbLG 
ANU® 1,0,SZK 
ERALT 

LOOP 


LUA 3,NUSKS 
MOVR 4,6 
MOVE ,0,SNC 
JMP 355 
SeTuUP 

LUA 2,4o14 
SEEK 

% 

Ula 1,0SKP 
LUA 4,Kb9 
ANO® 1,0/S5NR 
ERALT 

LOOP 


St TuP 

Lua 2,Kn44 
Scen 

0 

OLA 1,08KP 
LUA 4,Kolu 
AND® 1,0,S5ZK 
EnALT 

LOUP 


s1F UNIT @ N 
#00 ON TO UN 
{UNIT © NOT 
SLOLE STATE 
POELECT THE 
PwITH A SEEK 


HrEaO STATUS 


tnO READY ST 


SLOLE STATE 
PSELECT THE 
IwITH A SEER 


PREAD STATUS 


FSEcK ERROR 


HIF UnIT go 1 
PAVATLABLE, 


SKIP TRIS T 
PIOLE STATE 
POELECT Tr€ 
twITH A SEEK 


tread STATUS 


#NQ READY ST 


OY aVAILAdLe 
Ww31 

bEING TESTED) 
STATUS CHECK 
ADAPTER 

v 


ATUS, UNIT w& 


STATUS CHECK 
AUVAPTER 
7 


STATUSs UNIT & 


$ NOT 
GO ON TO UNIT 2 


EST 

STATUS CHECK 
ADAPTER 

a 


atus, UnIT 14 


HIOLE STATE STATUS CHECK 


SELECT THE ADAPTER 


twITH A SEEK 
HREAD STATUS 


© 


$SEEK ERROR STATUS, UNIT 1 





a Woe 


G1 
oe 
6s 
04 
85 
a6 
a7 
Cr) 
ag 
iT) 
ii 
12 
13 
14 
1s 
16 
17 
iT.) 
iy 
28 
ai 
22 
23 
24 
25 
26 
27 
28 
ay 
38 
34 
32 
33 
3a 
35 


215i 
02132 
02155 
021384 
02135 
02136 
02137 
62140 
02141 
02142 
021438 
02144 
02145 


02146 
02147 
w2ise 
2151 
02152 
o2153 
@2154 
#2155 
621560 


02157 
B2160 
@2161 
22162 
82163 
e2164 
02165 
02166 
02167 
62170 
@2371 
02172 
02173 


@2174 
02175 
w2176 
@2177 
v2200 
w2201 
v2eb2 
Q2203 
02204 


MAIN 


@2¢6151 Bod3 
veavol 
187405 
ovuded 
066241 
038061 
060246 
OBuAuAR 
604433 
020065 
1235415 
@80242 
0662435 


006241 656% 
O3eRoL 
CA0246 
OBOeHA 
004453 
v20u64 
125414 
@46242 
0460243 


@20151 857% 
024062 
125405 
020423 
606241 
vsdro2 
290246 
evence 
064433 
e2en65 
123415 
896242 
086243 


08624) B56% 
OsHno2 
“86246 
eueaer 
064433 
@2ue04 
129414 
086242 
OHO243 


LUA B,NDSKS 
LOA 1,*B15 
ANU @,1%,5NR 
JMP 897 
SetTuP 

Lua 2,Kb13 
SEEK 

@ 
UIA 1,0SKP 
Lua 8,Ko9 
ANU® 1,0,5NR 
ERMALT 

LOOP 


SeTuP 

LUA 2,Kpi3 
SEEK 

@ 


Vid 1,0SKP 
LDA 0,KB18 
AND#® 1,0,S5ZR 
EWALT 

LOUP 


LDA @,NUSKS 
LUA 1,Kbie 
AND 1,0@,5NR 
JmP Dt 

Se TuP 

LDA 2,*bi2 
SeEK 

8 

OIA 1,0SKP 
LOA 8,KB9 
AnNU® $£,8,S5NR 
EratT 

LOOP 


Se TUP 

LUA 2,Kp1le2 
SEEK 

a 

UIa 1,0SKP 
LUA U,Koled 
AND® 1,0,SZR 
ERAT 

Loop 


yIF UNIT 2 18 NOT AVAILABLE 
$60 On TO UNIT 3 


WSKIP TRIS TEST, NO UNIT 2 
9LOLE STATE STATUS CHECK 
PSELECT THE ADAPTER 

swITH A SEEK @ 


PREAD STATUS 
NO READY STATUS, UNIT @ 


PIDLE STATE STATUS CHECa 
PSELECT THE ADAPTER 
twlTm A SEER 2 


WREAD STATUS 

POEEK ERROR STATUS, UNIT 2 
HIF UNIT 3 IS NOT AVAILABLE 
160 YO NEXT TeST, 

' 

HSKIP, NO UNIT 38 

PLOLE STATE STATUS CHECK 
PSELECT THE ADAPTER 

twITH A SEEK @ 


pREAO STATUS 
yNO READY STATUS, UNIT §$ 


HIOLE STATE STATUS CHECK 
HSELECT TRE ADAPTER 
MwlTM A SEEK @ 


IWEAD STATUS 


HSEEK ERROR STATUS, UNIT 3 


a HS¢ 


Ai 
o2 
as 
04 
Os 
vo 
07 
rr) 
a9 
lo 
11 
12 
138 
14 
19 
1o 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
3a 
31 
32 
3o 
34 
35 
36 
37 
3o 


2209 
v2dt6 
2227 
e2e10 
w2e11 
02212 
v2e135 
02e14 
w2215 
62210 
02217 
@2cer 
02221 
o2é22 
02225 


402224 
e2225 
02226 
©2227 
o2250 
62231 
2252 
e2253 
2234 
02235 
v2256 
#2237 
2249 
0224) 
v2242 
w22e45 
02244 
d2245 


eMAIN 


vdo2e] DLE 


cevio2 
JOSnSS 
036100 
v7ens3 
e2evo7 
o611983 
080165 
800233 
01453 
veanou 
147HVe 
122414 
086242 
ono243 


Vbo2al 
w20152 
063033 
esolou 
€72433 
024146 
e45¢cu 
e45eC1 
C2067 
w61iss 
260165 
“60233 
v21A2e 
osivel 
146415 
146414 
066242 
646243 


De: 


SeTuP 

Lua @,7tSTU 
VOC ¥8,D0oKP 
LUA 2,BLFF 
Ous 2,05KP 
LDA 4, Kt7 
OuasS #,0SKP 
JSR @STALL 
NIJOL USAP 
Old A,OSKP 
LOA 1,Kb14 
Auuv 2,1 
SuUBs 1,0,52k 
ERALT 

LOOF 


SeTuP 

LOA @, TESTU 
DUC @,0SKP 
LUA 2,8UFF 
Co8 2,0SKP 
LDA 1,C2525 
STA 1,0,2 
STA 1,1,2 
LOA 4,K87 
DuUAS #,08KP 
JSR @STALL 
NIOC OSKP 
LDA 8,80,2 
LDA 2,1,2 
Suda @,1,S5NR 
SUB® 2,1,SZR 
EMALT 

LOOF 


ICMECK THE FIRST 2 DATA 
TCHANNEL CYCLES OF A WRITE 
PCFARST ATTEMPT AT wRITE) 


L000 CA REG, 


mwRITE 3) 

TALLOw TIME FOR OCH CYCLES 
ICLEAR THE WRITE OPERATION 
PACUSENDING MEMORY ADURESS 
PACZBESTARTING MEMORY ADORESS 
be UCR CYCLES SHOULD rave 
sUCCURRED 

paCossad, aCisGO0n 

HCHECK THE SEQUENCE "UP FLAG"&@ 
P"ReEOL*e4QND KEQ", tyP FLAG" 
SETS "DOP OCH REO" WHICH STAYS 
yON FOR 2 MEMORY CYCLES, 


HCHECK THE FIRST 2 DATA 
PCRANNEL CYCLES OF A WRITE 


1SET MEM ADOR REG, 


PUATA 8 @52525 
§ 2 WOROS 


PwRITE 34 

PALLOW TIME FOR 2 OCMIS 
SCLEAR THe WRITE 

HIS TRE DATA STILL IN MEMORY 
HIF NOT A DCHI May mAVE 
HBEEN PERFORMED INSTEAD 

yOF A OCHO 

PACGRACZEHAD nORODS 

9aC1#G600D 


a Avsi 


a1 
a2 
Bh) 
a4 
gS 
a6 
o7 
a8 
a9 
10 
ii 
12 
is 
14 
15 
16 
17 
16 
ig 
20 
21 
22 
23 
24 
29 
26 
27 
26 
29 
36 
$i 
32 
33 
34 
3° 
3o 
v7 
36 
3y 
40 
41 


02246 
02247 
0225 
o225)1 
w2ed2 
w22595 
2254 
62255 
02250 
02257 
“2260 
62261 
02262 
62265 
62264 


2265 
62266 
02267 
02270 
02271 
62272 
02279 
@2274 
02275 
02276 
02277 
o2ste 
e25e@1 
02382 
62383 


62504 
25285 
02586 
@25¢7 
w2slu 
@2311 
e25t2 
v23515 
02514 
02515 
W23slo 
w2s17 
02526 
62s2)h 
n2s22 


MAIN 


e0o2a) 
620182 
065035 
102402 
e6erss 
¢24¢67 
e65158 
weo165 
w6v2ess 
USUROe 
069433 
Lidsdee 
446414 
veo2a2 
086243 


w@o2at 
e2v1s2 
863035 
1O25e? 
w62033s 
024067 
665135 
eA616s 
€O8233 
WSuAoA 
069453 
11506 
146434 
246242 
686243 


wbo24a) 
20152 
65053 
26117 
e62uss 
024067 
065155 
6¥O165 
w6b209 
udsevoe 
865433 
L19aeA 
146414 
046242 
000243 


Os! 


O05: 


SETUP 

LDA 4, TESTU 
OOC ¥,DSKP 
Sud 4,8 

OO6 @,0SKP 
LOA 1,K87 
OOaS 1, 0SKP 
JSR @STALL 
NLOC OSKP 
LDA 2,Kp14 
Did 1,D5KP 
A00 4,2 
Subs 2,1,57R 
ErauT 

LOOP 


SETUP 

LOA 4,TESTU 
Ooc 4,DSKP 
SUBZL 8,2? 
Oud @,D0SKP 
LUA 1,67 
OGaS 1,USKP 
JSR @STALL 
NIOC USKP 
LOA 2,KB14 
DIB 1,05KP 
AUD 4,2 
Subse 241,57 
ErRALT 

LOGP 


SeTuP 

LUA 4, TESTU 
DOC 46,0SKP 
LUA ¥,CS 
008 ¥,DSKP 
LO& 1,Kp7 
DOAS 1,U0SK"P 
JSR @STALL 
NIOC USKP 
LUA 2,K614 
Old 1,0S8KP 
ADD 9,2 
SuBbA 2,1,S5Z2R 
ERALT 

LOOP 


CHECK PROPER CA WwEGISTLR 
PINCREMENT BY ALLOWING 
Tre FIRST 2 DATA CrAWNEL 
CYCLES AT THE BEGINNING 
sOF A wRITE, 


PowreITE 34 


PSTUP TRE WRITE 
PACUBSTARTING MeMONY ADURESS 
PACS BACTUAL ENDING MEMORY 

' ADDRESS 

PACZACORRECT ENDING MEMURY 

’ ADDRESS 


Che CK PROPER Ca REGISTER 
PINCREMENT BY ALLOWING 
tTHe PIRST 2 DATA CHANNEL 
CYCLES AT THE BEGINNING 
1UF A WRITE, 


} wrRITE $4 


1STUP THE WRITE 
PACUBSSTARTING MEMORY ADURESS 
PACLMACTUAL ENDING MEMORY 

} ADDRESS 

PACZSCORRECT ENDING MEMORY 

} ADDRESS 


ICHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
HThe FIRST 2 VATA CHANNEL 
HCYCLES AT Tee BEGINNING 
FOF A wkKITE, 


to weITE |] 


tSTUP TRE WRITE 
PACOBSTARTING MEMORY ADURESS 
PACLBACTUAL ENDING MEMORY 

’ ADDRESS 

PACZSLORRECT GNUING MEMORY 

’ ADDRESS 





a Oude 


wi 
de 


02923 
62524 
v2s25 
02326 
62327 
2330 
e2931 
02332 
w2935 
02554 
02535 
62336 
023537 
o2s4u 
0254) 


02342 
02543 
02344 
02345 
2540 
B2347 
02350 
62591 
023552 
02353 
62554 
62555 
w2s56 
023557 
v256u 


w23o1 
62502 
02563 
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w4o2a2 
C40243 


wto24) 
620152 
G63N33 
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¥64293 
“Se06R 
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1460414 
eoe4de 
600245 


NOs 


v7t 


Dee 


StTUP 

LOA 4, TESTU 
OUC 8,DSKP 
LOA 4,07 
OuB &@,05KP 
LuA 1,KB7 
OAS 1,USKP 
JSR @STALL 
NAUL DSKP 
LOA 2,KB14 
Old 1,08KP 
AuD 4,2 
Subs 2,1,5Zk 
cMALT 

LOOP 


SceTuP 

LUA “A,TESTY 
VCC ¥8,0SKP 
LUA @,C47 
UUs 6,DSKP 
LDA 1,67 
DOAS 1,USKP 
JSR @STALL 
NIOC UVSKP 
LDA 2,Kbi4 
DId 1,USKP 
AUD 4,2 
Subs 2,1,8ZR 
EraLT 

LUOP 


SETUP 

LOA O, TESTU 
NUC d,DSKP 
LUA 6,C37 
O06 w,OSKP 
LUA 1,«b7 
VOAS 1,USKP 
JSR @STALL 
NIUC USKP 
LOA 2,Kp14 
Did 1,0SKP 
ALD H,2 
Suse 2,141,582 
ERALT 

LOOP 


PCHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
ttHe FIRST 2 LATA CHANNEL 
ICYCLES AT THE BEGINNING 
fUF A WRITE, 


towalTé Uf 


sSTUP THE wRITE 
PACUBSTARTING MEMORY ADDRESS 
PACLEACTUAL ENDING MEMORY 

, ADDRESS 

PAC2BCORRECT ENDING MEMORY 

’ aDORESS 


ILCRECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
1THE FIRST 2 DATA CHANNEL 
SCYCLES AT THE BEGINNING 
1OF A WRITE, 


P owHITE $4 


#STUP THE wRITE 
PACUBSTARTING MEMORY ADLRESS 
PACLBACTUAL ENDING MEMORY 

U ADORESS 

PaC2SCORRECT ENDING MEMORY 

i ADDRESS 


ICHECK PROPER CA REGISTER 
PINCREMENT BY ALLUWING 
STRE FIRST 2 DATA CrANNEL 
FCYCLES AT THE BEGINNING 
tOF A WRITE, 


BowRITE [3 


TOYTUP TRE WRITE 
PACQSSTARTING MEMORY ADDRESS 
PACLBSACTUAL ENDING MEMORY 

' ADDRESS 

paC2acORRECT ENDING MEMORY 

' ADDRESS 
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eg 
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20 
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29 
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665033 
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062033 
e24007 
65155 
606165 
060235 
030006 
4069433 
115000 
146414 
000242 
086243 


Dwt 


D163 


O1ls 


SETUP 

LOA 8, TeSTU 
DUC ¥,DSKP 
Loa 0,C77 
OGd 6,0SKP 
LDA 1,Kp7 
VUAS 1,USKP 
JSR @STALL 
NIOC OSKP 
LDA 2,Kbié 
DId 4,0SKP 
ADU 4,2 
SuBbw 2,1,S7ZR 
ERALT 

LOOP 


SETUP 

LUA @,TESTU 
VOC 8,OSKP 
LOA 8,C177 
UGd 4,USKP 
Loa 1,«B? 
OOAS 1,uUSKP 
JSR @STALL 
NIOC OSKP 
LOA 2,KB14 
Ole 1,DSKP 
ALD 8,2 
Sus# 241,S5Zk 
EMALT 

LOOP 


Se TuP 

LOA 8, TESTU 
OOC &8,DSKP 
LDA @,C377 
OOS Y,USKP 
LOA 1,Kb7 
DUAS 1,USKP 
JSR @STALL 
NIOC USKP 
LOA 2,Kb14 
OB 1,0SKP 
AUD 0,2 
Sus# 2,1,52ZR 
EWALT 

LOOP 


PCHECK PROPER CA REGISTER 
HINCREMENT BY ALLOWING 
sTrhce FIRST 2 DATA CHANNEL 
HCYCLES AT Tke BEGINNING 
pUF A WRITE, 


p WRITE 1) 


ISTUP THE WRITE 
PACUSSTARTING MEMORY ADDRESS 
pACAVBACTUAL ENDING MEMORY 

' ADDRESS 

PACZ]ECORRECT ENULING MEMORY 

f] ADURESS 


PLMECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
WTHE FIRST 2 CATA CHANNEL 
HCYCLES AT The BEGINNING 
yOF A WRITE, 


powrITE $3 


PSTUP TRE WRITE 
PACOSSTARTING MEMORY ADURESS 
pACISACTUAL ENDING MEMOKY 

' ADORESS 

paC2eCORRECT ENDING MEMORY 

U ADDRESS 


wCHeCK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
THE FIRST 2 VATA CHANNEL 
HCYCLES AT THE BEGINNING 
PUF A WRITE, 


d wRITE 33 


9STUP THE WRITE 
PACOBSTARTING MEMURY ADULRESS 
PACLBACTUAL ENDING MEMONY 

} ADDRESS 

PACeaCORRECT ENOING MEMORY 

, ADDRESS 
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Didi 


D143 


Se TuP 

LUA 8, TESTU 
DUC &,05KP 
LDA 4,C777 
Dus @,0SKP 
LDA 1,KB7 
DUAS 1,LSKP 
JSR @OSTALL 
NIOC OSKP 
LOA 2,Kb14 
DIB 1,DSKP 
ADD 8,2 
SuBA 2,1,5ZR 
EHALT 

LOUF 


Se Tur 

LDA A, TESTU 
DOC @,DSKP 
LDA #,C1777 
DOB 6, OSKP 
LDA 1,Kb7 
VUAS 1,USKP 
JSR @OSTALL 
NIOC USKP 
LDA 2,KB14 
Dis 1,0SKP 
AUD Y,2 
SUBM 2544SZR 
ERMALT 

LooP 


SeTuP 

LDA @,TeESTU 
NOC 4,D0SKP 
Loa ¥,C3777 
D008 4,DSKP 
LOA 1,467 
GUAS 1,USKP 
JSR @STALL 
NIOU OSKP 
LOA 2,Kb14 
Ois 1,0SKP 
ADU 6,2 
SuBe 2,1,5ZR 
EMALT 

LOOP 


PLHECK PROPER Ca REGISTER 
PINCREMENT bY ALLOWING 
HtMe FIRST 2 DATA CHANNEL 
PCYCLES AT THE BEGINNING 
UF & WRITE, 


Po wRITE 14 


PSTOP THE WRITE 
PACUSSTARTING MEMORY ADDRESS 
PACLSACTUAL ENDING MEMORY 

, ADDRESS 

PAC2SCORRECT ENDING MEMORY 

U ADORESS 


HCHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
HTHe FIRST 2 DATA CHANNEL 
ICYCLES AT THE BEGINNING 
JUF & WRITE, 


y WRITE [4 


PSTUP THE WRITE 
JACOSSTARTING MEMORY ADDRESS 
PACLEACTUAL ENDING MEMORY 

, ADDRESS 

PAC2SCORRECT ENDING MEMORY 

' ADDRESS 


CHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
STHE FIRST 2 DATA CHANNEL 
CYCLES AT THE BEGINNING 
sOF A WRITE, 


PeWRITE [J 


SSTOP THE WRITE 
PACYBSTARTING MEMORY ADDRESS 
PACLSACTUAL ENDING MEMORY 

’ ADDRESS 

pAC2eCORRECT ENDING MEMURY 

' adoReSS 
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e243 
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146414 
“wwo2ae 
veo2ds 
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Dis3 


SETUP 

LOA 8, TESTU 
OuUC 4,O0SKP 
LOA #,07777 
Odd 4,0SKP 
LOA 1,Kb7 
DOAS 1,0SKP 
JSR @STALL 
NJOC OSKP 
LOA 2,014 
DI8 1,0SKP 
Au) 8,2 
Suse 2,1,S2k 
EHMALT 

LUOP 


SETUP 

Lua 8, TESTU 
DUC 8,O0SKP 
LO4 8,C017 
Oud ¥,DSKF 
LOA 1,7 
QUAS 3,0SKP 
JSR OSTALL 
NLOC USKP 
LuA 2,Ko14 
Q18 1,0SKP 
ALO 6,2 
Sud@ 244,52 
ERMALT 

LOOP 


SeTuP 

LDA 4,Testu 
OOC J,DSKP 
LOA 8,Ce37 
DOS 3,0SKP 
LDA 1,K57 
QOUAS 1,USKP 
JSR @STALL 
NIOC USKP 
LOA 2,KB14 
Qld 1,0SKP 
aQU 4,2 
Sud# 2,1,SZR8 
CHALT 

LOOP 


CHECK PROPER Ca REGISTER 
PINCREMENT BY ALLOWING 
WTHe FIRST 2 DATA CRANNEL 
CYCLES AT THE BEGINNING 
JOF A WRITE, 


PowRITE bf 


PSTOP TmE WRITE 
PACUBSTARTING MEMORY ANURESS 
PACLBACTUAL ENDING MEMORY 

’ ADDRESS 

PACZSCORRECT ENDING MEMURY 

' ADDRESS 


CHECK PROPER CA REGISTER 
TINCREMENT GY ALLOWING 
ITHE FIRST 2 DATA CRANNEL 
ICYLCLES AT TeE bEGINNING 
2UF A weITE, 


powRITE Uh 


STOP THE wRITE 
PACSBSTAQTING MEMORY ADDRESS 
PACIBACTUAL ENDING MEMORY 

’ ADDRESS 

PACSSCORRECT ENDING MEMORY 

, ADORESS : 


ICHECK PROPER Ca REGISTER 
PINCREMENT BY ALLUWING 
HTme FIRST 2 DATA CHANNEL 
HCYCLES AT THE SEGINNING 
fuP A WRITE, 


po wRITE |) 


HSTOP THE WRITE 
PACUSSTARTING MEMORY ADURESS 
PACLBACTUAL ENDING MEMORY 

’ ADURESS 

PraAC2SCORRECT ENDING MEMORY 

' ADDRESS 
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SETUP 

LUA 3, TESTU 
Ouc 4,0SKP 
AOCZR 8,8 
QOS W,DSKP 
LOA 1,KB87 
DUAS 1,DSKP 
JSR @STALL 
NLIUL OSKP 


U16 1,05KP 
SuBLL 2,2 
SuBa 2,1,S7K 
EHALT 

LOOP 


St TUP 

LUA BU, TESTU 
DOC 86,DSKP 
AUC B,@ 

QUB 4,0SKP 
LUA 1,Ka7 
OUAS 1,USKP 
JSR @STALL 
NITOU uSne 
DIB 1,05KP 
SusZk 2,2 
InC 2,2 
Subse 251,SZk 
ERALT 

LOOP 


ICHECK PRUPER CA REGISTER 
PINCREMENT BY ALLOWING 
STHE FIRST 2 GATA CHANNEL 
HCYCLES AY THE BEGINNING 
HOF & WRITE, 


P WRITE |] 


PSTOP TRE WRITE 
PACUSSTARTING MEMORY ADORESS 
PACL@ACTUAL ENDING MEMORY 

’ aDORESS 

PAC2]BCORRECT ENDING MEMORY 

' ADDRESS 


TLHECK PROPER CA REGISTER 
TINCREMENT BY ALLOWING 
HTHE FIRST 2 OATA CHANNEL 
ICYCLES AT THE BEGINNING 
}OF A&A wRITE, 


WRITE $1 


HSTOP TME WRITE 
SACBESTARTING MEMORY ADDRESS 
ACL BACTUAL ENDING MEMORY 

i ADDRESS 

baC2eCORRECT ENDING MEMORY 

i ADDRESS 
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SETPi 

LOA 1,BUFF 
Oo8 1,0SKP 
LGA @,TESTU 
LUA 1,C17 
ADD 1,80 

0vOC @,D0SKP 
LOA U,KB7 
OOAS 6,USKP 
ITRwT 

ERALT 

LooP 


SETPY 

LDA 1,6UFF 
008 1,0SKP 
LOA @,TESTU 
LOA 1,C€17 
AOU 1,0 

DOC 4,0SKP 
LOA @,KB7 
DUAS 8,08KP 
SUBZL 2,2 
walt 

NTOC OSKP 
SKPLZ OSKP 
EMALT 

LOUP 


SETP 

LUA 1,8uUFF 
008 1,0SKP 
LOA @, TESTU 
Loa 1,017 
ADU 1,8 

DOC 8,0SKP 
LUA @,KB7 
DOAS &8,USKP 
SUBZL 2,2 
WATT 

SUBZR 9,8 
DUA 0,USKP 
SKPDZ DSKP 
ERALT 

LOOP 


PATTEMPT A COMPLETE WRITE 
PCFIRST WRITE WITH wC OVFLO) 
sONc SECTOR 


PUNIT @ @ ScCT CNY 
PSELECT UNIT 


pARITE 41 
PwALT 18@MS OR UNTIL INTERRUPT 
PTIMEOUT, NO INTERRUPT 


PATTEMPT TO CLEAR “OP OUNE" 
dwITH (C) PULSE, 


PSET "OP DONE" wITH A OnE 
PSECTOR WRITE, 
PSELECT UNIT 


pwRITe Jf 


PwATT 100M3 OR UNTIL DONE 
PATTEMPY CLEAR 

9(C) PULSE DOES NOT 
PCLEAR HDP DONE”® FF, 


BAYTEMPY TO RESET 
"OP DONE" WITH "OP DATOA" 
PAND "DATA @", 


+SET "DP DONE" with A 14 SECT, 
pwRITE, 

PSELECT UNIT 

swRITE 33 

pwALT 188mM8 OR UNTIL DONE 
PATTEMPT RESET 


"DP DATOA" AND "OATA 8" DOES 
mNOT CLEAR "OP DONE", 
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SeTrt 

LUA 1,BUFP 
VOB 1,0SKP 
LUA 0,TESTU 
LuA 1,Ci7 
AUD 1,4 

OuC ¥,0SKP 
LDA &,Kb7 
DOAS 6,USKP 
SUdZL 2,2 
WAIT 

SKPUZ DSKP 
SKPbZ OSKP 
EWALT 

LUOoP 


Seri 

LOA 1,8UFF 
0068 1,0SKP 
LDa 8, TESTU 
Lua 1,C17 
Avo 1,@ 

OOC @,0SKP 
LUA 8,K67 
DOAS #,0SKP 
SubZ2L 2,2 
WAIT 

DIA 1,0SKP 
LOA 8,KBL4 
ANDA 651,52R 
EHALT 

LOOF 


SETP) 

LOA 1,BUFF 
DOB $,0SKP 
LUA 8,TESTU 
LOa 1,017 
ALD 1,8 

OOC 4,0SKP 
LOA @,KB7 
DOAS @,DSKP 
SUBZL 2,2 
WALT 

OJs 1,USKP 
LUA 8, BUFF 
LOA 2,0482 
ADU 2,0 
Sus# 1,%6,SZR 
EMAaLT 

LOOP 


HCHECK BUSYeDONE 
PFOLLOWING A 1 SECTUR WRITE 


PSELECT UNIT 7 1 SECT KFER 
WRITE Jf 

PwAIT $20M8 (OR UNTIL "DONE") 
sERROR IF "OP DONE" 8 @ 

pOR "OP BuSy" @ § 


pSEE IF A 1 SECTOR 
PWRITE CAUSES "DATA LATE" 


PSELECT UNIT / 14 SECT XFER 
PwWRITE 13 
PWALT 108M8, (OR UNTIL "DONE") 


PYREQL"® OOES NOT CLEAR 
"OP FLAG", RESULTS IN 
P"DATA LATE" STATUS, 


CHECK ENDING MEMORY 
HADDRESS (CA REGISTER) 
SFOLLOWING A 1 SECTOR WRITE 


PSELECT UNIT 7 4 SECT XFER 
pwRITe (1 


PWAIT 160MS ( OR UNTIL "DONE" ) 
PACLEENDING MEMORY ADDRESS 
HCORRECT ENDING AOORESS 8 
P(BUFF)¢488e2, IN (ACB) 


SENDING MEM ADOR ERROK, 
yaC@eGood 
9aC38BAD 
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oseie 
osell 
osetia 
O3018 
oS014 
wseid 
03016 
03017 
ese2v 
09021 


e3b2e 
03823 
03e24 
€3025 
e376 
03027 
vdesu 
0303) 
3032 
63038 
63e54 
03635 
03GS6 
03037 
03@au 
wseady 
03e42 
83043 


030ag 
03045 
ese4o 
63247 
03656 
e305) 
edsede2 
O3C5S 
ose54 
83655 
65¢56 
63U57 
o3e6e 
aseo) 
o3e62 


eMAIN 


EO624AR D262 
024107 
vO08S3 
20352 
o24i2i 
125402 
065855 
02¢007 
061133 
1S25ev 
000267 
406433 
050155 
147462 
026063 
s22414 
0¢o242 
g00243 


046240 0278 
024168 
062053 
2102 
624174 
y2dauv 
o65uss 
026067 
eo1133 
152520 
000227 
660453 
20133 
107400 
e2u7oa 
122414 
080242 
0460243 


20024P L263 
d201o¢e 
062n53 
d20152 
24174 
12s00e 
603053 
e2eno7 
061138 
152524 
206227 
064433 
0056058 
ovo2de 
ed0243 


Setrt 

LDA {,BuFP 
DUB 1,05KP 
Loa 6, TESTU 
LOA 1,€17 
ADD 1,6 

DOC 6,0SKP 
LUA U,Kb7 
DUAS B,USKP 
SuBb2L 2,2 
WALT 

OIC 1, DSKP 
Lua 2,Ce3/7 
ANU 2,13 

LUA B, Koil 
SuBbRe 1,6,82% 
Enaut 

LOOP 


SeTPL 

LOA @, Burr 
DOs 4,0S8KP 
LOA J,TESTU 
Lua 1,C16 
AVU 1,0 

OuC @,0SKP 
Lua 4,KB7 
DOAS 8,0SKP 
SuBzL 2,2 
WALT 

OlC 1,0SKP 
LUA 43,0837 
ANU @,14 

Lua A,KBLd 
Supa 1,0,SZ2 
EnmaT 

LOOP 


SETPL 

LUA 8, GuUFF 
DUS B,USKP 
Lua 4, TESTU 
KuA 1,016 
Abu 1,8 

QuC 8,USKP 
LUA 8,Ko57 
DuUAS 6,0S5KP 
SusZL 2,2 
WALT 

DIA 1,0SKP 
SKPON OSKP 
EnALT 

LOUF 


ICHECK FOR PROPER ENDING 
HDISK ADDRESS FOLLOWING 

91 SECTOR WRITE ON HEAD @ 
HSECTOR @ 

Mm" INC SC" CAUSES "SCi-Sce" 
#TO GO FROM $1114 TO Qd08 
PANU SETS "Si", 


paRITe [4 


twALT L68MS (GR UNTIL "DONE") 
PREAD ENDING UISK ADDRESS 


SMASK OUT UNIT 
HSECTOR «@ j 


TENDING OTSK ADDRESS NOT 
IMEADWB, SECTOR@1, SC#O 


sATTEMPT A 2 SECTOR 
pwRITC, 

FIRST ATTEMPT AT A WRITE 
TLONGER THAN 1 SECTOR 


HSELECT UNIT / 2 SECTURS 
twRITE U4 
twmALT 108MS (OR UNTIL "DONE") 


HREAD ENDING UISK ADDRESS 
MASK OFF UNIT wo 


PENDING DISK ADDRESS NOT 
MMEADeD, SECT=2, SCad 
FAC WSGOGO ADDR, ACL SBAD 


HATTEMPT A 2 SECTOR wHITeE 


PSELECT UNIT 7 2 SECTURS 
mwRITE Jf 


PWAIT 10AMS JUR UNTIL "VONE*) 
READ STATUS 

ynO "DP DONE” 

HFOLLOWING 2 SECTOR wRITE 
HCACL)SSTATUS REG, 





a B04 


61 
ve 
a3 
aa 
ed 
eo 
a7 
08 
ay 
12 
11 
le 
1o 
14 
15 
16 
17 
18 
1 
20 
21 
22 
23 
24 
25 
20 
27 
28 
2y 
30 
34 
32 
33 
34 
35 
30 
37 
38 
3y 
4u 
44 
42 
43 
44 


oSeos 
03864 
03265 
63¢66 
63267 
3070 
63¢7) 
0Se72 
0se7s 
ese74 
63075 
03676 
d3877 
é31te 
G31et 
w31e2 
odes 
03104 
w51es 
@31A6 
S107 


w3ile 
w3iii 
o3i12 
esiis 
osiia 
oS1i15 
wsite 
esit7 
wsi2v 
03121 
ad3i2e 
o$i2s 
03124 
03325 
63126 
wo3127 
b3iSe 
o3i3dt 
wsise 
wsido 
e313 


MAIN 


Ovoeay Dev: 
YW2e164% 
2620353 
026192 
“SH190 
e24ai7i 
193i0s 
24117 
L2ovee 
o6srss 
£20407 
vO11SS 
152520 
ono2e7 
2604358 
$0153 
147404 
620212 
1224614 
ovo2d2 
406243 


680240 DSUs 
v2010V 
06253 
e20152 
essneds 
02067 
861193 
15252v 
wto2e7 
000493 
e2uvos 
OS4aA7H 
25KU19¢ 
155103 
1752e¢ 
163Awv 
“34158 
107404 
122414 
000242 
000243 


SETPL 

LOA 4, BUFF 
VOd &6,DSKP 
LUA UW, TESTU 
LUA 2,0TYPE 
LUA 1,Ci34 
AUUL 2@22,5NC 
Lua 1,05 
Avvo 1,8 

VDUL 6,DSKP 
LUA A,Kb7 
DuUAS OY, USKP 
SusZL 2,2 
WALT 

DIC 1,0SKP 
LUA 22,0637 
AND 2,1 

LOA @,C420 
Suds 1,4,S2R 
ERALT 

LOUr 


SeTri 

LUA A, dUFF 
DOd 4,O0SKP 
Lua @,TeSTU 
QUC 6,0SKP 
LOA w,KB7 
DOAS 8, USKP 
SubZL 2,2 
wALT 

DIC 1,08KP 
Lud #,KB9 
LOA $,KB6 
Lua 2,0TYPE 
AVUL 2¢2,S5NC 
MOVZ2R 3,3 
AUD 3,4 

Lva 3,Cwd7 
AnvU 3,14 
Suse 1,4,SZK 
En ALT 

LOOF 


PINSURE THAT "INC HEAD" 
FPUNCTIONS PROPERLY 
HTRANSFER 7 SECTORS On 33 
ISECTORS DEPENDING UPON 
1THe OISK TYPE 


HLOAO UNIT # & w SECTORS 
pwRITe 34 


ywAIT 108 MS (OR UNTIL "DONE") 
HREAD ENDING DISK ADOKESS 


STHROW AWAY UNIT & 
+ACwsGO0D, HEAL@L SECTe! 
paCieBAaL 

PCHECK "ADV HO", "INC HEAD" 


PATTEMPT A 36 SECTOR wRITE 
PVERIFY CURRECT ENDING 
SUISK AUDRESS 


JUNIT w / 16 SECTORS 
pwRITE J] 


pwAIT Y@OMS COR UNTIL "DONE*) 
HREAD ENDING DISK ADDRESS 
FSECTOR 4 

HHEAD 2 


SKIP IF 2311 
HREAD 1 


PACISACTUAL ENDING DISK ADDRESS 
PACUSCORRECT ENDING DISK ADDRESS 
} 16 SECTOR TRANSFER, 





a 004) 


G1 
be 
a3 
4 
@5 
@o 
7 
6 
ey 
10 
11 
12 
13 
14 
15 
{6 
17 
{8 
19 
20 
21 
22 
23 
24 
29 
26 
27 


#31355 
03156 
03197 
03146 
03141 
03142 
wsiad 
03144 
03145 
03146 
63147 
3158 
O3191 
03152 
3158 
OS154 
03155 
O31S6 


63157 
#3160 
03161 
03162 
@3163 
03164 
03165 
€3166 
#3167 
03176 
63171 
83172 
63173 
83174 
03175 
63176 
03177 
es2eu 
osaArs 
v32ee 
odeus 
os2aa 
ws2e5 
03206 
03207 


o321e 
oseil 
03212 
03215 
3214 
03215 


eMAIN 


ubo2au Osi3 
“201600 
e62053 
@20152 
@Osnss 
020067 
661153 
15252 
o4o227 
w2016¢ 
024¢00 
O30A73 
l2sauv 
143@0n 
0654353 
122414 
086242 
“o4o243 


@@0240 D032: 
o2015¢ 
650427 
Wire 
BAC auU4 
151400 
le12ce 
1514¢6¢ 
w2lece 
24152 
125av@ 
063033 
v2eioe 
062033 
820067 
e6llos 
1525e2¥ 
e“s2e7 
264453 
020412 
10740668 
1AG4as4 
660242 
086243 
000467 


eBs211 
664676 DADS 
0645596 
011676 
100021 DAL4? 
0bWG20 EUCNT? 


Se TPs 

LDA 8, BUFF 
DUB @,0SKP 
Lua 6, TESTU 
voc 6,DSKP 
LOA @,Kb7 
OUAS #6,USKP 
SudZL 2,2 
WAIT 

LDA 4,B8UFF 
LUA 1,KB14 
LUA 2,KBS 
ADD 1,6 

AvU 2,4 

Ols 1,0SKP 
Sus# 1,0,572K 
CHALT 

LOUP 


SETPS 

LWA UW,DTYPE 
LUA 2,D0A01¢14 
MOVL® @,8,S2C 
JmP .o4 

INC 2,2 

MOVR 6,4,SZC 
TNC 2,2 

LDA 0,8,2 
LOA 1,TESTU 
AUD 1,0 

DGC @,0SKP 
LUA @,8uUFF 
OUS8 &8,DSKP 
Lua @,Kb7 
VUAS ¥,LSKP 
SUBZL 2,2 
WALT 

OIA 4,0SKP 
LOA &,0AD4 
ANU 8,1 

Suse w,i,SZk 
ERALT 

LOUP 

JMP DSO2ZA 


et 
676 
4536 
11676 
164021 
20 


PATTEMPT A 16 SECTOR WRITE 
PANU VERIFY CORRECT ENDING 
MEMORY ADDRESS 


UNIT # / 16 SECTORS 
pywRITe Jf 


PwALT 38@MS (OR UNTIL "VONE*) 
PSTARTING AUDKESS 

+ TwO 

’ 16,088 


TENUING MEMORY ADDRESS 
MeRROR FOLLOWING A 16 SeCTOR 
paRITE 

1aCQ8G0UD0 

tACLS6AD 


yCAySt "END OF CYLINDER” 
#T0 OCCUR DURING A 
té SECTOR WRITE 


SCARKTRIDGE DISK 


SSKIP IF 2311 OISK PACK 
92314 OISK PACK 

1GET PROPER OISK ADDRESS TO 
HCAUSE "EOC" 

paOu IN UNIT # 

PFINALLY 


}LOAD MEM ADOR, 

PWRITE U4 

PwAIT LOOMS (UR UNTIL "DONE") 
FREAD STATUS 


NO "EOC" OR FERR® OR “OP DONE" 
PROLLOWING wRITe OVER END CYL 
PACQBEXPECTED ENDING STATUS 
PACL BENDING STATUS 


HCART HEAD 1 SECT 13 2 SECTORS 
92311 HEAD 9 SECT 5 2 SECTORS 
p2314 MEAD 23 SECT 13 2 SECTORS 


"OP DONE", "EOC, "EWR", STATUS MASK, 


a Aude 


es2ie 
esei7 
03226 
6322) 
43222 
03223 
03224 
03225 
03220 
03227 
3238 
03231 
“3232 
0323535 
03234 
€3255 
3236 
03237 
03246 
03241 
03242 
03243 
03244 


eV AIR 


“Oo24av OS2ai 
620194 
141113 
wed23 
e2unos 
040772 
620152 
06590353 
HW2v104 Oden? 
062033 
02067 
vO113s 
1S252¢ 
000227 
664433 
020757 
147 408 
146415 
couada 
14754 
000704 
“¥o242 
20243 DS2C3 


SeTPi 

LDA @,OTYPE 
MUVL® @,8,SNC 
JmP vS2C 
LUA @,KbBi1 
STA 0,EUCNT 
LUA @,TeSTU 
DUC @,USKP 
LDA #,8UFFP 
DOB 8,0SKP 
LOA 4, KB7 
DUAS @,DSKP 
SuUsZL 2,2 
WAIT 

OLA 1,0SKP 
LOA @,DAD4 
ANU UY, 
SUB# w,1,SNR 
JMP 04 

OSZ EUCNT 
JmP D32e 

En ay. 

LOUF 


puRLVE DISK ADAPTER 


PINTO ENO OF CYLINDER TO 
PCHECK INC HD FLOP IN 
PADAPTER LOGIC, EOC 

PFOR CARTRIDGE OCCURS ON 
P2NU wRITe CYCLE, 

' 


’ 

; 

PEQUNT 

#46 SECTOR WRITE CYCLE 
HCOUNTER IS LOADED #ITH 
FMAX, NUMBER OF LOOPS 
PREGUIRED TO ACHIEVE 

yAN EQC AFTER A START 
HFROM HOO@, SECTOR @, 
meB11(C) OCTAL 28, 

yn) EOC & MORE LOOPS 

yNO EOC, CK INC HO, HEAD, & 
seOC FLUP IN ADAPYER LOGIC, 


a 0043 


@1 
2 
03 


03245 
03246 
03247 
03258 
03251 
03252 
03253 
03254 
632558 
03256 
03257 
03260 
03264 
83262 
es263 


83264 
63265 
83266 
03267 
03270 
o3271 
ose72 
03275 
03274 
03275 
03276 
03277 
03506 
03901 
o3see2 
85383 


05504 
0330s 
03326 
63387 
03318 
oddth 
asoke 
03di3 
63314 
23515 
03316 
03517 
43320 
83321 
vss22 
0325 


a MAIN 


00O24¢ 
b20152 
024421 
t23eur 
065633 
220074 
e62A03 
1Bedauu 
0611938 
152526 
o6o2e7 
¢64433 
125115 
eeo242 
086243 


Cbo242 
o26152 
w24t2i 
1250006 
0690885 
eeue74 
0620098 
1edcaee? 
#61153 
152528 
o@6227 
064433 
e2aeoe 
120414 
006242 
680243 


e4oga® 
620152 
e24i2i 
1290K0 
065035 
620074 
062033 
182400 
861198 
152522 
686227 
0094633 
€20217 
122414 
600242 
200243 


OSS3 


0343 


0353 


SETPS 

LOA @, TESTU 
LOA 1,017 
ADD 1,4 

QOoc @,0SKP 
LOA &,KB2 
DOB 6,9SKP 
Sus @,8 
DOAS &,DSKP 
SusZL 2,2 
WALT 

DIA 1,DSKP 
MOVL@ 1,4, SNC 
Emaut 

LOOP 


SceTPrt 

LO @,TESTU 
LOa 1,047 
AuD 1,8 

OULC 3,OSKP 
LOA @,kb2 
DOs 4,0SKP 
Sus 3,8 
OuAS 4,0SKP 
Suszl 2,2 
walt 

Ola 1,0SKP 
LUA A,Kb1LG 
ANDa 1,4,52R 
Enat 

Loor 


SETRY 

LOa J, TESTU 
Loa 1,017 
AUU 1,4 

buC 8,0SKP 
LDA W,Ko2 
QOUS A,USKP 
SUB a, 
UOAS ¥,O0SKP 
SubZL 2,2 
WALT 

Ole 1,0SKP 
Lua 4,C2gan 
Suse 1,0,SZR 
ERMALT 

LOOP 


PATTEMPT & READ 
aC FIRST READ Jisdd ) 


PUNIT W / $ SECTOR xFeR 
1CA © 29000 
PREAD J 3 


PwAIT (OMS (OR UNTIL "DONE") 
JREAD STATUS 

} DONE 7 

NO "DP DONE" ON READ 
pACLSBAD ENDING STATUS 


PATTEMPT & READ 
p 1 SECTOR 


PUNIT # / 1 SECTOR XFER 
1CA 8 26220 
MREAD 11 


PrALT 188MS (OR UNTIL "DONE") 
YREAD STATUS 

P*DATA LATE" STATUS ON 

pa 1 SECT READ 

paCi@eBad ENOING STATUS 


HATTEMPT a READ 
p 1 SECTOR READ 


§ UNIT # / 1 SECT XFER 
1CA ® 20008 
PREAD J} 


twAIT 10]8MS (OR UNTIL "DONE") 
#READ STATUS 

TENUING MEMORY ADORESS 

11S wkONG FOLLWOING { S&CT READ 
paCveaG00d 

sACisBAD 





a 00404 


03324 
03325 
63326 
63327 
03330 
03331 
63532 
03333 
03034 
03355 
03536 
03337 
03340 
033461 


03342 
03545 
03344 
03345 
3546 
uv b347 
033508 
03351 
03352 
63353 
03354 
03559 
03050 
63997 
eSs6u 
633961 


MAIN 


00024 DSO3 


020192 
e24ie2h 
12560 
063083 
268074 
6620353 
oO01ss 
152deu 
00227 
vedeu2 
125434 
2460242 
0862463 


e2vi19e 
ielive 
“onuaie 
eeo2ae 
020152 
0244764 
1239740 
65853 
e2av7a 
66evss 
664153 
152522 
ovo227 
1251135 
240242 
600243 


D373 


SeTPi 

LUA 4,TeSTU 
Lua 1,Ci7 
AuD 1,0 

DUC “U,USKP 
LDA 4,*b2 
OUS A,D0SKP 
NLOS DSKP 
SUSZL 2,2 
wAIT 

Loa &,C76 
ANO® 1,0,SZk 
ERMALT 

LOUP 


LUA A,UTYPE 
MOVL 8,0,S82C 
JMP EL 

SETP\ 

LOA @, TESTU 
LUA 1,Kb2 
AvU 1,0 

vuc 4,08KP 
LUA A,Kb2 
DUB 9,0SKP 
NIOS USKP 
SuUBLZL 2,2 
walT 

MOVL® 1,1,5NC 
bHALT 

LooP 


PATTEMPY A READ 
§ 1 SECTOR READ 


FUNIT # 4 1 SECT KFER 


1CA & 20000 
IREAD |! 


PwAIT 10Q@M8 (OR UNTIL 4DONE®) 
PACLSSTATUS 

PERROR STATUS FOLLOWING A 
TREAO, "SEEK ER", OR "AUDRESS/ 
TUNSAPE" 


r1F CARTRIDGE DISK 

TOON'T ATTEMPT A FORMAT 
mmODE READ 

FATTEMPT A READ 

NIN THE FORMAT MODE 

HCFIRST USE OF FORMAT MUDE) 


JUNIY # FORMAT MODE BIT 


1LA ® 28008 
PREADI! 


twALT 1006S (OR UNTIL "DONE*) 
paCyeSTaTus 

INO "OP DONE" FOLLOWING FMT READ 
HCHECK "F DONE", "R/wW DONE" 





a 0645 


@3 

2 
os 
04 
85 
6 
07 

a8 
9 
18 
ii 

12 
43 
14 
18 
16 
17 
18 
19 
20 
2t 
22 
23 
24 
25 
26 
27 
26 
29 
30 
3a 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
45 
aa 
45 
46 
47 
48 
49 
50 
51 
S2 
53 
54 
55 
56 


03502 
03363 
03364 
03365 
03366 


63367 
63370 
03571 


03572 
Q3373 
03374 
03575 
@3370 


63377 
63480 
03401 
03402 
03485 


v3aoa 
o34as 
03486 
03407 
3410 


344 
83412 
O3413 
B3414 
e3415 


63416 
03417 
63428 


03421 
03422 
63423 
03424 
03425 


03426 
035427 
@543e 
03431 
83432 


03433 
63454 
034355 
63436 
034387 


a MAIN 


606257 E18 
686261 
obduoe 
686242 
60n4e2 


686255 
85215 
80330 


606257 
080550 
000017 
@06242 
ebedi2 


086256 
006730 
eeen17 
086242 
000405 


O0626¢ 
Q86330 
COO7350 
006242 
wG@02403 E1e3 


C86237 E22 
BBO2b4 
CORbue 
606242 
oaede2 


@06255 
085214 
2653e 


000257 
OG655u 
¥G0e17 
206242 
e00412 


0860256 
086752 
Q00R17 
e0o2de2 
@oeauds 


e@626e8 
046350 
€0673A 
086242 
606243 E2E! 


JSR @LSET 
DOSEK 
t) 


EHALT 
JMP EVE 


GENUAT 
ZEROS 
PRGEND 


WRITE 
PRGEND 
17 
Ewaut 
JmP EYE 


REAQ 
PRGEND ©4808 
17 

EWALT 

JmP ELE 


CHECK 
PRGEND 
PRGOENL +408 
EWALT 

LOOP 


JSR @ISET 
DOSEK 

@ 

ERALT 

JMP E2E 


GENDLAT 
ONES 
PRGENO 


WRITE 
PRGEND 
17 
EMALT 
JMP E2E 


READ 
PRGEND +480 
i7 

ERALT 

JmMP E2E 


CHECK 
PRGEND 
PRGEND +480 
EHALT 

LOOP 


#00 SEEK/WRITE/READ 

HCHECK DATA 

PSEEK CYLINDER ZERO 

PERROW OURING SEEK, ACY BSTATUS 
9SKIP REMAINDER OF TEST 


PLENERATE DATA 
HDATAPALL ZEROS 
HDATA BUFFER ADORESS 


900 THE WRITE 

HUATA BUFFER ADDRESS 
PHEAD@@, SECT@@, 1 SECTOR 
PERKOR IN WRITE, aACiaSTaTus 
SSKIP REMAINDER OF TEST 


pMEAD THE DATA 

POATA BUFFER ADDRESS 
PHEAD@D, SECT@=B, 1 SECTOR 
HERROR IN READ, ACIBSTATUS 


PCOMPARE DATA BUFFERS 
#G00D BUFFER 
PQUESTIONABLE BUFFER 
PERROR, AC@sGUOD wORD 
pACiSBAD WORD 


100 SEEK/wRITE/READ 

9CMECK DATA 

HSEEK CYLINDER ZERO 

TERROR DURING SEEK, ACLSSTATUS 
HSKIP REMAINDER OF TEST 


IGENERATE DATA 
DATABALL ONES 
TDATA BUFFER ADORESS 


900 THE wRITE 

PDATA BUFFER ADORESS 
tHEAD@O, SECT@2, 1 SECTOR 
ERROR IN WRITE, ACL BSTATUS 
#SKIP REMAINDER OF TEST 


WREAD TRE DATA 

HOATA BUFFER ADDRESS 
HHEAD@@, SECT#@, 1 SECTOR 
FERROR IN READ, ACIBSTATUS 


HCOMPARE DATA BUFFERS 
#6000 SUFFER 
PQUESTIONABLE BUFFER 
JERROR, ACZeGOOD wORD 
PAC{SBAD WORD 


a 6u46 


et 
Ge 
@3 
O4 
@5 


03444 
6344) 
03442 
03443 
03444 


03445 
05446 
03447 


03456 
03451 
03452 
03453 
03454 


03455 
63456 
63457 
03460 
03461 


03462 
03463 
03464 
03405 
034606 


03407 
03470 
63471 
03472 
03473 


05a74 


03475 
03476 


03477 
RED) 
os5et 
“s5e2 
035580 


03504 
05505 
03506 
03587 
“S516 


03513 
03512 
w3513 


> #5514 


63315 


aMAIN 


0002357 ESS 
vd6261 
edonee® 
046242 
ebede2 


086255 
085235 
OM6S3¢ 


006257 
WBOS30 
60817 
066242 
0800412 


000256 
O86750 
006017 
o’o242 
oeuaus 


CBO260 
080350 
@A0730 
066242 
o8o0243 Edsts 


0460257 Eat 
oA6264 
odones 
6B6242 
ovuede2 


086255 


85223 
246550 


046257 
086330 
08017 
bG6242 
wOv4a12 


e@6256 
vG673" 
OObE17 
086242 
680425 


“06202 
C8OSsu 
006732 
e062a2 
86243 EGE: 


JSR @I1SET 
OuSeK 

) 

EHALT 

JMP ESE 


GENDAT 
NUMSEW 
PRGEND 


WRITE 
PRGEND 
17 
ERALT 
JmMP ESE 


READ 
PRGEND*400 
17 

ERALT 

JMP ESE 


CHECK 
PRGEND 
PRGEND S400 
EMaLlyT 

LOOF 


JSR @ISET 
DOSEK 

@ 

EMALT 

JMP EAE 


GENDAT 


ALT. 
PRGEND 


WRITE 
PRGEND 
17 
EHALT 
JMP EAE 


READ 
PRGEND®480 
17 

EmALT 

JMP EAE 


CHECK 
PRGENO 
PRGEND+480 
EHALT 

Loup 


yLO SEEK/wRITE/READ 

HCMECK DATA 

PSEEK CYLINDER ZERO 

PERROR OURING SEEK, ACIsSTATUS 
ISKIP REMAINDER OF TEST 


IGENERATE DATA 
TOATASNUMBERS 82377 
JUATA BUFFER ADORESS 


300 THE WRITE 

PLATA BUFFER ADDRESS 
PMEAD@D, SECT@O, 1 SECTOR 
YERROR IN WRITE, aCiaSTATUS 
HSKIP REMAINDER OF TEST 


tREAO THE DATA 

}DATA BUFFER ADORESS 
IHEAD=@, SECT=0, 1 SECTOR 
TERROR IN READ, ACLSSTATUS 


HCOMPARE DATA BUFFERS 
9G000 BUFFER 
PWUESTIONABLE BUFFER 
YERROR, AC@SGOOD wORD 
PACZBBAD WORD 


100 SEEK/WRITE/REAO 

HCHECK DATA 

HSEEK CYLINDER ZERO 

FERROR DURING SEEK, ACL BSTATUS 
HSKIP REMAINDER OF TEST 


SUENERATE DATA 
JOATA PATTERN # 1830181 ETC, 
HUATA BUFFER ADORESS 


300 THE WRITE 

HUATA BUFFER ADDRESS 
PmEAD@O, SECT=8, 1 SECTOR 
ERROR IN WRITE, ACLSSTATUS 
PSKIP REMAINDER OF TEST 


MREAD THE DATA 

HDATA BUFFER ADORESS 
MMEADH®, SECT, 1 SECTOR 
PERROR IN READ, ACI SSTATUS 


PCOMPARE DATA BUFFERS 
1G00D BUFFER 
SuUESTIONABLE SUFFER 
peRROR, AC@BGOOD wORD 
PACLSBAD WORD 


a» 0047 


Gi 
G2 
as 
a4 
65 
Go 
a7 
a8 
9 
te 
ii 
iz 
Le 
14 
15 
16 
17 
18 
19 
20 
21 
22 
26 
24 
25 
26 
27 
28 


03516 
03517 
03522 
03521 
03522 


03528 
03524 
03525 


03526 
03527 
03530 
0353) 
03532 


0353535 
63554 
63555 
63536 
63537 


0354% 
0354) 
03542 
83643 
03544 


eMAIN 


@86237 E53 
CA6264 
A8CBue 
686242 
o@ed22 


e8o255 
oos2e5 
246550 


006257 
640532 
OG0A17 
o4o242 
weedi2 


080255 
286730 
68OA17 
006242 
eeedus 


686206 
066550 
wh6739P 
0bo242 
000243 ESE8 


JSR @ISET 
DOSEK 

a 

CHALT 

UMP ESE 


GENDAT 
AL TS 
PRGEND 


ARITE 
PRGEND 
17 
tray 
JMP ESE 


REAL 
PRGEND +400 
17 

EMALT 

JmP ESE 


CrecKk 
PRGEND 
PRGENU® 400 
EHALT 

LOOP 


900 SEEK/WRITE/READ 

CHECK DATA 

pSEEK CYLINUER ZERO 

HERROR OURING SEEK, ACISSTATUS 
PSKIP REMAINDER OF TEST 


HOENERATE DATA 
HOATA PATTERN = Q10181@ ETC, 
PDATA BUFFER ADDRESS 


7U0 TRE WRITE 

TDATA BUFFER ADDRESS 
prEAD@m@, SECT#@, 1 SECTOR 
meRROR IN WRITE, aCisSTaTuUS 
ISKIP REMAINDER OF TEST 


PREAD THE DATA 

YOATA BUFFER ADDRESS 
PHEAD@@, SECTe@, 1 SECTOR 
HERROR IN READ, AClaSTaTUS 


1COMPARE DATA BUPFERS 
14000 BUFFER 
HUUESTIONABLE BUFFER 
MoRNOK, AC@SGOOD wORD 
7ACLSBAD WORD 





a “ess 


Qi 
a2 
a3 


w55465 
03540 
03547 
05550 
03551 
03552 
w3d9S 


w954 
¥ 3055 
05956 
63957 
v356e 


65563 
03562 
0356038 
03564 
€3505 


w3ooo 
03567 
03970 


5 wS57)4 


63572 


03973 
63574 
€3575 
03576 
03577 


MAIN 


¥20142 
“4014s 
006237 Eb3 
@eo26i 
whoo 
000242 
eAueed 


w2014s 
e4r142 
000255 
Cusasi 
ehossa 


060257 
wHo3ss¢ 
obuvi? 
ano24se2 
eOuey2 


oFo256 
C407 SL 
eeuel17 
096242 
eteaes 


006208 
606530 
006750 
286242 
G46243 EoEt 


LOA B8,RANDOM 
STA W,RELRAN 
JSR @OLSET 
VOSEK 

@ 

ERALT 

JmMP EGE 


LUA @,RELRAN 
STA 4,RaNUOM 
GENDAT 

RAN 

PRGEND 


WRITE 
PRGEND 
17 
EHALT 
JmP EOE 


REAL 
PREENUSA9D 
17 

erat 

JmMP EGE 


CHECK 
PRGEND 
PRGOEND*400 
Enact 

LOOP 


1U0 SEEK/WRITE/REAO 

rCreCK DATA 

HSEEK CYLINDER ZERO 

TERROR DURING SEEK, ACLSSTATUS 
HSKIP REMAINDER OF TEST 


PuENERATE DATA 
PUATA & RANDOM 
HUATA BUFFER ADDRESS 


$00 THE wrITE 

POATA BUFFER ADDRESS 
PREAD@O, SECT#@, 14 SECTOR 
TERROR IN WRITE, ACL SSYaTuUS 
HSKIP REMAINDER OF TEST 


HREAD THE DATA 

DATA BUFFER ADORESS 
PHEAD@0, SECT=0, 1 SECTOR 
HERROR IN READ, ACSBSTATUS 


JCOMPARE DATA BUFFERS 
96000 BUFFER 
PUUESTIONABLE BUFFER 
PERROR, ACOSGOOD wORD 
fACL8BAD WORD 





a 8049 ,MAIN 
81 
G2 
a3 
u4 
as 
@6 
07 
@6 
ag 
1e 
44 
12 


PUTSCUSSION OF TESTS €7/E8 AND E9/E1@ 


' AT THIS POINT IN TESTING IT HAS BEEN DETERMINED 
PTMAT REAUVING AND WRITING CAN BE PERFORMED CORRECTLY, THE 
PNEXT FOUR TESTS ARE A CYLINDER ADDRESS CHECK, CYLINDERS 
PARE FIRST SELECTED IN ORDER (80312) AND DATA EQUAL YO THE 
ICYLINDER NUMBER IS WRITTEN (TEST £7) ON HEAD#@ 

PSECTUR*@ OF EACH, THE FULLOWING TEST THEN READS YHIS DATA 
pOACK IN THE SAME SEQUENCE IN WHICH IT WAS WRITTEN, JF ONE 
PCYLINDER IS wRITTEN ON MURE THAN ONCE DUE TO A (ALWAYS @ OR 
PALWAYS 1) CYLINDER ADURESS BIT LINE AN ERROR WILL SHOW UP 
YIN TME DATA COMPARE CHECK, 


PIE. %F "Cyy 4" TS ALWAYS A ZERO TREN AN ATTEMPT 
' TO SEEK TO CYLINDER 4 ACTUALLY SELECTS 

U CYLINDER @, OATA WORDS OF "4" ARE WRITTEN 
, TRERE AND WHEN THE VATA AT CYLINOER @ IS 

’ LATER REAL AND CHECKED IT WILL BE "4" WHEN 
U IT SHOULD Be "a", 


ITESTS E7BEB CHECK ALL CYLINDERS IN SEQUENCE B512 
PAND TESTS EQSELS® CHECK TME CYLINDERS IN OREDER 
FFROM 312 TO 0, USING THE COMPLEMENT OF THE CYLINDER 
YNUMBER AS THE DATA WORDS, 


a B05 


@1 
Ge 
as 
o4 
@5 
vo 
7 
Gs 
ay 
16 
14 
12 
13 
14 
15 
to 
17 
18 
1y 
206 
21 
2e 
238 
24 
25 
26 
27 
23 
ey 
30 
31 
32 
33 
34 
gO 
36 
37 
36 
39 
40 
41 
42 
43 


B30a0 
w3eal 
wdsove 


o30K3s 
esoud 
SOAS 
03606 
63607 
esol1V¥d 
63611 
wdsol2 
03613 
03614 
03615 
03016 
ws017 
o3so20 
03021 
03622 
03623 
os024 


05625 
03626 
03627 


03650 
03631 
036032 
03030 
osood 
036055 
036036 
03637 
d3$604n 
03641 
Q3042 
63043 
w3ea4 
03045 
@3040 
03647 
3650 
e3051 
wsods2 


eMAIN 


142408 
a46403 
040237 


006261 
ebesue 
06242 
oeudit 
ou6255 
©8521 
96359 
086257 
2863550 
220017 
000242 
eOu4sult 
6860243 
010764 
020763 
024207 
122427 
000756 


102400 
B40403 
060287 


BvoO261 
08088 
0060242 
¥Ov412 
evo2ssE 
C8O3S50 
004017 
06242 
086405 
@260774 
020707 
122414 
886242 
0062438 
10703 
a20762 
“24207 
122427 
w@y755 


£73 


E7 eit 


E7ESs 


ES: 


Es,it 


E8.23 


ERE: 


Sub 4,4 
STA @,E7,1 
JSR @1SET 


DVOSEK 

a 

EWALT 

JMP E7E 
GENDAT 
CYLN 
PRGEND 
WRITE 
PRGEND 

17 

EMALT 

JMP ,ol 
LUOP 

TSZ E7.1 
LOA @,E7,1 
Loa 1,Cd12 
SusZ 1,6,S88N 
JmP E7 


SUB 8,8 
STA #,E&6,1 
JSR @1SET 


OOScK 

@ 

EnmALT 

JMP EBE 

READ 

PRGEND 

17 

ERALT 

JMP EBE 

LOA 1,@68,2 
LOA 0,EB.L 
Subs 1,0,SZR 
EHALT 

LooP 

TSZ EBel 

LDA 2,68,1 
LOa 1,C312 
SuU6Z 1,6,S0N 
JMP Eb 


ICYL. ADORESSING CHECK, SEE OJSCUSSION 
PPRECEDING E77, WRITE ON HEAD@®, SECTOR=@ 
tOF EACH CYLINDER, In ctaCH SECTOR DATA 
JEQUALS THE CYL #, WRITE IN ASCENDING 
PORLER FROM CYL @ YO Sie, 

rSEEK 

ICYLINDER NUMBER (17 CHANGES) 

teRROR DURING SEEK, ACL@STATUS 

9SKIP TO ENO OF TEST 

GENERATE OATAa 

PADURESS OF DATA GENERATOR 

PUATA BUFFER ADDRESS 

mwRITE 3} 

PUATA BUFFER ADORESS 

OISK ADORESS 

FERROR DURING WRITE, ACL MSTATUS 


HCE7,1) 8CYL 
yv0 IT ONCE FOR 
PEACH CYLINDER 


PCYLINDER ADDRESS CHECK, SEE DISCUSSION 
FPREVIOQUS TO TEST E7, READ FIRSY SECTOR 
HOF EACH CYLINDER AND CHECK FOR PROPER 
POATA, IN EACH CASE DATA SHOULD EQUAL 
HTME CYLINDER 4, 

SEEK 

FCYLINOER NUMBER (JT CHANGES) 

PERROR DURING SEEK, ACLESTATUS 


prEad 

JDATA BUFFER ADDRESS 

yuISK ADDRESS 

PERROR DURING READ, ALISESTATUS 
+SKIP TO ENO OF TEST 
HFIRST WORD IN DATA BUFFER 
HSHOULD @ CYLINDER #& 

7aC 886000 

PACA BBAD 

yREAD THE TEST DESCRIPTION 
PREPEAT THE TEST FOR 

te ACH CYLINDER 


a 8651 


Bi 
2 
) 
64 
i) 
Go 
07 
6 
ay 
16 
il 
12 
is 
14 
15 
to 
17 
is 
1» 
20 
21 
22 
23 
24 
29 
20 
27 
ri) 
ay 
30 
31 
32 
33 
34 
35 
36 
37 
33 
3y 
4a 
41 
42 
49 


63053 
v3o54 
03655 


03650 
wSodo7 
S060 
ode6t 
odbbe 
03063 
@36604 
03665 
03666 
03667 
636074 
w3o7}h 
04072 
03673 
03074 
03075 
03676 
08077 


us7reu 
e370) 
037¢e 


o37a3 
037@4 
03745 
037 eo 
6377 
ws7ie 
03711 
eS71e2 
637183 
03714 
od715 
ws716 
63717 
odfeed 
ob7el 
w372e 
03729 
03724 
03725 
03720 


eo MAIN 


b20207 
040403 
026207 


06261 
wAeaced 
000242 
Bou4alt 
0@o255 
“5227 
O2OS5A 
006257 
68655 
008017 
086242 
O404ut 
wbo243 
014764 
eeudul 
020702 
{AlLivs 
060756 


2202u7 
e404des 
0662357 


vubo2o) 
BQuaee 
046242 
OOY4)3 
wvo25o 
OB6550 
000017 
GBO242 
GO04e6 
€26776 
920707 
LACuee 
122414 
480202 
“aao0243 
“14762 
OBudul 
v2s7oun 
tiles 
we@usoa 


Ewell 


Eges 


bYOs 


€10,23 


E1ses 


LDA 6,CSL2 
STA 8,E9,3 
JSR @ISET 


OOSEK 

6 

EWALT 

JMP EGE 
GENDAT 
CYLNC 
PRGEND 
WRITE 
PRGENY 

17 

EraLT 

JMP 4ek 
LOOP 

vSZ Evel 
UMP oot 
LOA 6,E9,1 
MOVL 3,0,SNC 
JMP EY 


LDA 3,C312 
STA @,E12,1 
JSR @ISET 


DUSEK 

@ 

Ena? 

JmMP EVIe 
Read 

PRGOEND 

17 

EWALT 

JMP ELBE 

LOA 1,@b10,.2 
LUA @,C10—1 
COM 9,0 

Sud# 1,6,S2R 
ER ALT 

LOOP 

OSZ ElA,A 
JMP .@f 

LUA 4,ELde! 
MOVL, 010,5NC 
JmMP EL 


CYL. ADDRESSING CHECK, SEE DISCUSSION 
FPRECEOING TEST E7, WRITE ON HEAD#® 
PSECTOR@Q@, UF EACH CYLINOER, IN 
PEACH THE DATA wORDS EQUAL THE COMP, 
POF TRE CyL #, wRITE IN DESCENDING 
HORVER FROM CYL 312 TU o, 

1SEEK 

9CYLINDER NUMBER (IT CHANGES) 

JERKOR DURING SEEK, ACISSTATUS 

#SKIP TO END OF TEST 

PGENERATE OATA 

PADURESS OF DATA GENERATOR 

IDATA BUFFER ADDRESS 

mwRITe | 

PUATA BUPFER ADDRESS 

TUISK ADORESS 


PERMOR GURING WHITE, ACVSSTATUS 


PCES.1L) CYL w 


#00 IY ONCE FOR 
pEACH CYLINOER 


HCYLINDER ADDKESS CHECK, SEE DISCUSSION 
PREVIOUS TO TEST £7, HEAD FIRST SECTOR 
OF EACH CYLINDER AND CHECK FOR PROPER 
VUATA, IN EACH CASE DATA SHOULD EQUAL 
THe COMPLEMENT OF THe CYL w# 

1SE&K 

CYLINDER NUMBER (IT CHANGES) 

HERROR DURING SEEK, ACLASTATUS 


ymeEad 

FOATA BUFFER ADORESS 
sOITSK ADORESS 

PERROR UURING READ, 
rSKIP TO END OF TEST 
IFIRST wORD IN DATA BUFFER 
SHOULD #@ CYLINDER @& 


aCiaSTATUS 


saCoeGOOd 

sACLSBAD 

YREAD THE TEST DESCRIPTION 
HREPEAT THE TEST FOR 


FEACH CYLINDER 





a wwde 


@} 


£3727 
63730 
63731 
03732 
03738 
03754 
3/735 
63736 
03737 
03740 
63744 
63742 
u374s 
03744 
03745 
63746 
03747 
vd750 


v3751 
03792 
03798 
w3754 
03755 
637560 
063797 
03760 
vd7ot 
03762 
03763 


»MAIN 


1a24ue 
046197 
weviel 
040413 
000287 
bozo! 
Hovecer 
u4o242 
vbdalt 
066255 
265252 
206530 
000257 
6863323 
eve17 
46242 
20404 
Beo2as 


@101597 
026773 
62an63 
12sa04 
44779 
v24154% 
WS0205 
127103 
“su2iv 
tiegdaua 
G8e754H 


POISCUSSIUN OF THe SECTOR ADURESSING CHECK, 
PCTESTS EL17E42 AND E1S/E14) 


FUSING CYLINDER|Q, 


HEAV@® TEST E11 WRITES ON 


PEACH SUCCESSIVe SECTOR INDIVIDUALLY FROM O05, 


JOR Bell, 


THE SECTUR NUMBER, 
PIDUAL SECTORS BACK IN THe SAME ORDER AND 


HCRHECKS Tre DATA, 


IN EACH CASt EACH DATA WORD EQUALS 
TEST EL2 READS TRE INDI Ve 


TESTS ELS/EL4 PERFORM THE SAME 


TASK EXCLKPT THAT THE SECTOR SEQUENCE IS IN THE 
PREVERSE ORVER AND THE DATA WHITTEN EQUALS THE 
PCOMPLEMENT OF THe SECTOR NUMBER, 


ITHIS TEST 1S DESIGNEY TO CATCH ERRUNEOQUS SECTOR 
PSELECTION ERRORS, 


Tebe 


’ 
HU 
' 
' 
’ 
’ 
Els 


Eil,1% 


Ellcs 


If "scan 


2 1S SELECTED, 


TS ALWAYS AT GROUND wHEN SECTOR 
SECTOR @ WILL ACTUALLY 


Be CHUSEN AND "2'S" WILL BE WRITTEN THERE, 
In THe SUBSEQUENT REAL A DATA COMPARE 
ERRUR WILL RESULT WITh THE GOODs"g", 


AND THE BADSI2", 


STA 4,SECT 
LOA 4,017 
STA O,EL4,1 
JSR @ISET 
OOSEK 

r) 


En ALT 
JMP ELSE 
GENDAT 
SECTN 
PRGEND 
WRITE 
PRGEND 
17 
ERALT 
JMP yet 
LOOP 


TSZ SECT 
LOA G,ELiat 
LOA 1,Kod) 
ADD 1,8 

STA U,EL1e1 
LDA 1L,UTYPE 
LOA 2,C157 
ADOL 154,SNC 
Lua 2,097 
SsuS 4,2,S8Z2R 
JmP elt 


1SEe OISCUSSION PRECEDING THIS TEST, 
PWRITE ON CYL@O, HEAD#2, ONCE 
rPOR EACH SECTOR, IN EACH 
HCASE THE DATA WORDS cQUAL 
}THE SECTOR NUMBER 

PSELK 4 

CYLINDER @ 

PERROR IN SEEK, ACLESTATUS 
HSKIP YO ENO OF TEST 
HGENERATE DATA 

PADORESS OF DATA GEN ROUT, 
JADORESS OF DATA BUFFER 
WRITE | 

PDATA BUFFER ADORESS 

HDISK ADDRESS (IY CHANGES) 
SeRKOR IN WRITE, ACI BSSTATUS 


PINCREMENT THE SECTOR 
t NUMBER 


SSEBR ITF OONE 


$O0 ANOTHER 





a “055 


1 
a2 


03764 
83765 
03766 
03767 
03770 
63771 
63772 
03773 
03774 
03775 
03770 
03777 
04080 
0420) 
04802 
64ees 
e4uada 
04005 
04e0n6 


04007 
04010 
w4ei1 
w4vi2 
“4610 
04014 
o40id 
o4eio 
04017 
04220 
64021 


oMAIN 


1H2400 
048157 
w2ei12i 
640410 
006237 
006261 
6@d008 
686242 
400412 
066256 
6863537 
ea0al17 
@vo242 
600405 
620157 
@20773 
122414 
286242 
@00243 


010157 
020767 
6240685 
123”66 
0407646 
b2415A 
ode205 
127103 
030218 
tl2aed 
000747 


EL: 


E12.18 
£142,283 


EL2et 


Sus 4,a 

STA 8,SECT 
LOA @,C17 
STA 0,612¢2 
JSR @LSET 
DOSEK 

a 

EMALT 

JMP El2e 
READ 

PRGEND 

17 

ENALT 

IMP E,2t 

LDA %,SECT 
LO* 1,612.41 
$uB8¥ 1,2,SZR 
EHALT 

LQoP 


T$Z SECT 
LOA @,E12,2 
LOA 1,KB12 
A400 1,28 

STA 4,E12.2 
LOA 1,0TYPE 
LOA 2,0357 
ADOL 1,3,SNC 
Lua 2,C317 
su8 6,2,82ZR8 
JMP €12 


9SEG THE DISCUSSION PRECEDING 
HTEST Eid, READ ONCE FROM 
seACH SECTOR AT CyLe@, MEADR@, 
HCHECK DATA IN EACH CASE, 
FOATA WOROSSSECTOR @, 

HSEEK 

ICYLINDER @ 

PERROR IN SEEK, ACiaSTATUS 
#SKIP TO END OF TEST 

WREAD | 

TUATA BUPFER ADDRESS 

PDISK ADDRESS (IT CHANGES) 
PERROR IN READ, ACISSTATUS 
ySKIP TO END OF TEST 

WGET SECT w# 

SGET A WORD READ 

PUATA ERROR, SEE ABOVE DESCRIPTION 
#aC@eG000 WORD 

pACYSBAD 


PINCREMENT THE SECTOR 
PNUMBER 


ySEce IF DUNE 


G0 AGAIN 


a 054 


e4e2d 
w4eu20 
v4u24a 
w4e25 
“4v2o 
04¥27 
0403 
040s) 
v4ese 
€4¢309 
04434 
64¢s9 
448356 
64637 
64u4u 
04641 
04042 
04eas 
04044 
04045 
64y4a6 
04u47 
04850 
04e51 


@4u5e2 
b4auss 
v4e5a 
64655 
04¢56 
04057 
“4e0ou 
04¢61 


eMAIN 


“20190 
02424 
135it¢3 
w2a2v6 
644420 
129222 
1252e2¢ 
lesecr 
1259224 
044157 
“402357 
©F6261 
COU2kO 
“046242 
“veeais 
860205 
vbo25se 
060398 
000257 
0060330 
OOGHs7 
“602402 
Vou4ael 
660243 


014157 
e@eael 
028772 
62463 
12240 
040767 
191404 
060795 


Eis! 


ELdseis 


Eise3 


LOA B,UTYPE 
Lua 1,0137 
AUOL 046,SNC 
LUA 41,0277 
STA 1,€13,1 
MOVZR 1,1 
MOVZR i,t 
MUVZR Lpl 
MUVZR 1,1 
STA 1,SECT 
JSR @ISET 
DOSEK 

r] 

ERALT 

JMP ELSE 
GENVAT 
SETNC 
PRGEND 
WRITE 
PRGEND 

17 

ERMAaLT 

JMP .ot 
LOOP 


OSZ SeCT 
JMP yet 

LOA @,E135,1 
LUA 1,KB1) 
SUS 1,2 

STA 4, E13, 1 
INC &,8,SZR 
JMP E13 


+SE& CISCUSSION PRECEDING 
STEST E14, WRITE ON CYLoe, 
PREAD@@, ONCE FUR EACH SECTOR, 
PIN EACH CASE THE DATA EQUALS 
sTHE COMPLEMENT OF YHE SECTOR 
NUMBER 


IBEEGINNING SECTUR 

9SETUP 

SEEK } 

ICYLINDER @ 

HeERROK IN SEEK, ACisSTATUS 
#SKIP TO END OF YEST 
PGENERATE DATA 

PADDRESS UF DATA GENERATOR 
tADDRESS OF DATA BUFFER 
pwRITE | 

7AOORESS OF DATA BUFFER 
POTSK ADORESS (IT CHANGES) 
PERROR IN WRITE, ACXLBSTATUS 


PUECREMENT THE SECTOR 
PNUMBER 


psEe IF DONE 
mNOT YET 


a @055 


Bi 
ae 
as 
04 
@9 
a6 
87 
Ur) 
ag 
lo 
41 
12 
13 
14 
15 
16 
17 
16 
iy 
20 
23 
22 
23 
a4 
25 
26 
27 
26 
29 
3o 
34 
be 
33 
34 
35 
go 


e4e6e 
o4deos 
b4uoa 
04¢65 
04266 
64¢67 
04676 
0467} 
04¢72 
04¢735 
04u7a 
e4e75 
64076 
w42a77 
e4iee 
0410) 
dayne 
«4183 
Baia 
w4ins 
041¢6 
w4107 
wo4ile 
o4iit 
w4iie2 
e443 


w4iia4 
04415 
04116 
w4ii7 
04120 
04121 
6412¢ 
04123 


eMAIN 


p20150 
p2a2ne 
109103 
024206 
044435 
125220 
125220 
129220 
425220 
044157 
066237 
obozol 
COoeee 
0466242 
000413 
086256 
086330 
0Gve17 
086242 
OY Cl) 
@20157 
10veo8 
0207/2 
,224614 
086242 
0860243 


014157 
20udel 
w2e7o5 
024803 
1224u8 
046762 
181444 
eAv751 


E143 


c14,i5 
E14.23 


EL4es 


LOA @,OTYPE 
Lua 41,0337 
ADUL @,0,SNC 
LWA 1,0277 
STA {,€14,2 
MOVZR i,t 
MOVZR 1,1 
MOVZR 1,1 
MOVZR 1,1 
Sta 4,Sect 
JSR @I1SET 
DuScEK 

@ 

ERALT 

UMP EL4t 
READ 

PRGEND 

17 

ERAT 

JmP EL4E 

LOA ¥,SeCT 
COM 8,2 

LUA 1,@EL4,1 
Subs 1,0,SZR 
ERMALT 

LOUP 


OSZ SECT 
IMP .ok 

LUA 4,EL4,.2 
LUA t,Kbt) 
Sud 1,8 

S1A @,€14,2 
INC 8,8,S2R 
SMP E14 


WSEE THE DISCUSSION PRECEDING 
TEST $1, READ OnCe FROM 
SECTOR OF CYL=u, FEAVH6, 
READ SUCCESSIVe SECTORS 

YIN ORDER FROM FI TO LOn, 

PIN EACH CASE THE OATA EQUALS 
THE COMPLEMENT OF THe 
SECTOR NUMBER 


ISTARTING SECTOR «@ 


HSEeK | 

ICYLINDER @ 

HERROK IN SEEK, ACL ESTATUS 
SKIP YO END OF TESY 

pREAO | 

PUATA BUFFER ADDRESS 

#UTSK ADDRESS (IY CHANGES) 
PERROR IN READ, ACLESTATUS 
WSKIP TO END OF TEST 

IGEY SECTOR w 


1GET A WORD READ 

POATA ERROR, SEE ABOVE VESCRIPTION 
pAC@8GO00 WORD 

paCiBBAD 


HUECREMENT TO NEXT SECTOR 


1VONE 7? 
1NO, GO AGAIN 





a 6o5e 


Bi 
Ge 
Go 
a4 
@5 
do 
@7 
ao 
ey 
1o 
4i 
12 
1s 
14 
15 
160 
17 
18 
iy 
20 
2i 
22 
238 
24 
25 


PDISCUSSTIUN NF THE MEAD AVORESSING CHECK, 
§ (TESTS ELO/EL6 AND cl7/e18) 


PUSING CYLINDER=3, SECTOR|O, TEST E15 WRITES ONE 
PSECTUR ON EACH SUCCESSIVE READ INDIVIDUALLY, 
TIN EACH CASE THE DATA wORDS EQUAL THE MEAD 
INUMBER, TEST £16 KEADS EAUM OF THESE SECTORS 
HOACK IN THe SAME ORDER TREY wERE WRITTEN AND 
JCMECKS Tre OATA, TESTS E17 AND E18 PERFORM 
ITHE SAME FUNCTIONS EXCEPT THAT THE HEADS ARE 
PSELECTCO IN REVERSE URDEN ANLD THE COMPLEMENT 
pOF THE HEAD NUMBER IS USED AS THE DATA, 


ITMESE TEST ARE DESIGNED TO CATCH ERRONEQUS 
DREAD SELECTION OR MULTIPLE HEAD SELECTION 
HERROKS, 


~1.E. IF "MU2" 18 ALWAYS AT GROUND WHEN MEAD 2 
IS SELECTED, mead @ WILL ACTUALLY BE 
CHOSEN, "2'S" wILL BE wRITTEN ON THIS 
ScCTOR wHERE "W'S" HAD BEEN WRITTEN 
PREVIOUSLY. THE SUBSEQUENT READ WILL 
THEN ENCOUNTER A CATA ERROR WITH THE 
GUUL wORD # 8 AND THE BAD WORD 8 2, 


we we we we ee ee 





a 8057 


ai 
2 
es 
a4 
@o 
06 
a7 
08 
ag 
16 
11 
12 
ts 
14 
15 
16 
17 
18 
iv 
20 
21 
22 
2s 
24 
25 
26 
27 
26 
ev 
3@ 
$i 
32 
33 
34 
cr) 


04124 
64125 
041420 
04127 
e4i3e 
w4i3i 
04132 
041338 
04134 
041435 
04136 
04137 
24140 
04141 
04142 
04143 
04144 
44145 


04146 
4147 
4150 
o4i51 
04152 
04153 
w4i5a 
04155 
64196 
04157 
04160 
4161 
04162 
04168 
04164 


aMAIN 


102400 
046156 
e2ei2i 
640415 
006237 
Oe6201 
606eee 
006242 
000411 
606255 
@@5246 
OBO350 
606267 
C06330 
@@0017 
026242 
aevdul 
006243 


010156 
@20773 
024067 
123000 
646776 
02415? 
038454 
125112 
6vedy4 
151400 
125202 
15140@ 
025002 
122404 
“ee74a4 


Eis: 


ELS 18 


Eise3 


SUB 8,8 
STA @, HEAD 
LOa @,C1i7 
STA 0,£15,1 
JSR @OISET 
OOSEK 

@ 

EMALT 

JmMP ELSE 
GENDAT 

HON 

PRGEND 
WRITE 
PRGEND 

17 

EXALT 

JMP 4%) 
LOOP 


TSZ HEAD 

LDA @,E15,1 
LOA 1,667 
Aud 1,8 

Sva ¥,E£15,1 
LOA 1,0TYPE 
LUA 2,ADRa1 
MUVL® 1,1,S2C 
JMP 404 

INC 2,2 

MUVR 1,3,82C 
InC 2,2 

LOA 1,4,2 
Sus 1,8,$ZR 
JmPp E15 


9SEG THE DISCUSSION ABOVE, 
pwRITE ON CYL#0, SECTe2, 
yONCE FOR EACH WEAD, 

HDATA WORDS © HEAD & 


SEEK | 

CYLINDER @ 

PERROR IN SEEK, ACS STATUS 
PSKIP TO END OF TEST 
IGENERATE DATA 

pADDRESS OF DATA GENERATOR 
POATA BUFFER ADDRESS 
pwRITE | 

POATA BUFFER ADDRESS 

PUISK ADORESS (IT CranGeS$) 
PERROR IN WRITE, aACyaSTaTus 


PINCREMENT TO NEXT HEAD 


rOONE 7? 


HCaAnT OFSK 

ySKIP IF 2344 
2314 

#GET END DISK ADDR 


HNOT DONE YET 


a @u5s 


a) 
G2 
@3 
04 
@s 
Bo 
a7 
66 
ag 
10 
1 
12 
13 
14 
15 
16 
17 
18 
iy 
2u 
21 
22 
23 
24 
25 
20 
27 
26 


¢e4169 
04166 
04167 
64176 
#4171 
04172 
041735 
04174 
4475 
64176 
04177 
“4200 
04201 
w42ne2 
042035 
04264 
w4aeus 
04246 
04207 


04el1u 
w4211 
04212 
042135 
04e14 
64215 
04216 
04217 
04220 
64221 
04222 
C4223 
04224 


) 4220 


04220 
04227 


o4e5u 
04251 
04232 
642335 


oMAIN 


192440 
044156 
e2ei12i 
40412 
086237 
ebo2e} 
000808 
606242 
080412 
486256 
0063550 
G6BGAL7 
686242 
O0u4es 
020156 
626773 
122414 
606242 
006243 


018156 
020767 
024067 
1250608 
040704 
624150 
030412 
125112 
O00404 
151402 
125202 
151400 
025000 
122404 
080743 
veeses 


004251 
e61017 
005017 
012017 


E16s 


Ei0,33 


E16,23 


E16E3 


ADR: 


Sus 46,4 

STA @, Mt Aad 
LOA 4,Ci7 
STA 6,E16,2 
JSR @1ScT 
DOSEK 

@ 

ERALT 

JmP Ei6e 
READ 

PRGEND 

17 

ERALT 

JMP E16E 

LUA 8,MEAD 
LDA 1,@E16,1 
SUB 1,0,SZR 
ERALT 

LOOP 


ISZ Me AD 

LOA @6,E16,2 
LOA 1,67 
AUD 1,8 

STA 0,€16,2 
LWA 1,0TYPE 
LOA 2,ADR=1 
MUVL# 1,1,82C 
JMP 404 

InC 2,2 

MOVR 151,S2C 
INC 2,2 

LUA 1,0,2 
Sus 1,8,8ZR 
JMP E16 

JMP 4¢5 


etl 
1617 
5017 
12017 


PSE& THE DISCUSSION PRECEDING 
HTEST E15, READ ONCE FROM 
peACH HEAD ON CYL@@, SECTW@, 
SVERTFY THAT DATASHEAD & 


WSEEK | 

9CYLINOER @ 

PERROR IN SEEK, ACISSTATUS 
PSKIP TO END OF TEST 

PREAD | 

PADDRESS OF DATA SUFFER 
tDISK ADDRESS (17 CHANGES) 
PERROR IN READ, ACiBSTATUS 
sSKIP TO END OF TEST 

PGET HEAD w 

IGET & WORD READ 

WDATA ERROR, SEE ABOVE DISCUSSION 
pACOSGOOD WORD 

paCieBad 


PINCREMENT YO NEXT HEAD 


HUONE YET 2? 


HCART DISK 


PSKIP IF 2311 
2314 
#GET ENDING DISK ADDRESS 


PMORE TO GO 
960 TO NEXT TEST 


HCART, HEAD 2 SECT & 1 SECT 
H23it, MEAD 12 SECT @ 14 SECT 
#2314, WEAD 24 SECT B 1 SECT 


a 8059 


Bt 
02 
UR) 
a4 
85 
Qo 
07 
68 
ay 
10 
11 
le 
13 
14 
15 
16 
17 
16 
19 
20 
21 
22 
238 
24 
25 
26 
27 
28 
29 
30 
3i 
se 
3é 
34 
35 
36 


04234 
64235 
04236 
04237 
64248 
04241 
64242 
04243 
04244 
04245 
04240 
04247 
04250 
04253 
64252 
84258 
04254 
64255 
04256 
04257 
64260 
e420) 
64262 
4205 
04264 
042605 


64266 
04267 
04270 
od27) 
6a272 
04275 
04274 
64275 


eo MAIN 


oO2b15¢ 
450546 
101L12 
060404 
1514020 
101262 
151406 
o25006 
644416 
o2u213 
125700 
240156 
686237 
wGo261 
B80e0e 
C86242 
o@e4ii 
026255 
685244 
0860538 
806257 
280338 
420037 
626242 
@00401 
6@6243 


614156 
e4aens 
G28772 
224067 
122404 
@44767 
181103 
BOU753 





E173 


Ei7a48 


EL7EN 


LDA @,DTYPE 
LDA 2,A40R1@} 
MOVL& 8,8,82C 
JMP 4e4 

Inc 2,2 

MOVR 6,8,S2C 
INC 2,2 

LDA 1,4,2 
STA 1,617,513 
LOA 0,C1774 
ANOS 1,6 

STA 8,Meb au 
JSR @ISET 
DUSEK 

@ 

Ena? 

IMP EL7E 
GENDAT 

HONC 

PRGEND 

WRITE 

PRGENDO 

17 

EWALT 

JmP wet 

LOOP 


OSZ HEAD 

JMP aol 

LOA G,EL7.1 
Lua 41,487 . 
Sua 1,8 

Sia 8,617.1 
MOVL @,6,5NC 
JmP EY7 


#SEE THE DISCUSSION 
PPRECEDING TEST E15, 
MWRITE ON CYLe=d, SECT#=O, 
pONCE FOR EACH nEad, 
JUATA & HEAD & 


HSTARTING DISK ADDRESS 
PSELECT HEADS IN REVERSE ORDER 


PLURRENT WEAD & 


ySEEK | 

HCYLINOER a 

PERROR IN SEEK, AaCisSTATUS 
ySKIP TO END OF TEST 
IGENERATE DATA 

PADORESS OF DATA GENERATOR 
HDATA BUFFER ADDRESS 
WnRITE 4 

HUATA BUFFER ADORESS 

HOTSK ADDRESS (IT CHANGES) 
PERROR IN WRITE, aCyeSTATus 


PVECREMENT READ 


HUONE YET 2? 
rNO 





a 466¢ 


Oi 
4 
as 


04270 
04277 
e4oed 
0430) 
043902 
045s 
usgna 
e430 
643¢6 
445967 
04518 
“4os1 
“adie 
0451s 
64314 
w4515 
wS49lo 
04317 
w4s2u 
043ek 
04322 
oases 
04324 
04325 
04326 
04327 
04330 
¥4351 


04532 
¥4333 
04534 
24335 
0453560 
043537 
4434 
043461 
w43ae2 


0434s 
04904 
04345 
04346 


eMAIN 


W2B194 
030444 
161112 
ovudeda 
1534¢4 
1a12v2 
151442 
200048 
044413 
W26213 
1257u0 
0448196 
08062357 
e@o2ot 
eeugee 
ve6242 
000413 
080256 
GG053n 
280017 
026242 
Oed4u6 
20156 
182029 
026772 
1224614 
680242 
¥G0246S 


14156 
6Ge4et 
w2u705 
624967 
122402 
646762 
isiies 
200751 
e004e5 


enasad 
000417 
20aaj7 
B11417 


Ede 


Eis,is 
E18,2% 


Elst: 


AURYS 


LUA B,OTYPE 
LOA 2,AUR}e14 
MUVL#@ 4,8,S2C 
IMP ,o4 

tTnc 2,2 

MUVR @,0,S2C 
Inc 2,2 

LDA 1,4,2 
STA 1,£18,2 
LDA 4,01774 
ANOS 1,6 

STa A,r av 
JSR @ISET 
VUSEK 

@ 

EMALT 

JmMP ELBE 
REAL 

PRGEND 

17 

EHALT 

JmMP ELBE 

LUA @, READ 
CoM 4g, 

LDA 1,618.1 
SuB# 1,0,SZ2R 
ERALT 

LOOP 


OSZ HEAD 

JMP wel 

LOA 46,E48,2 
LOA 1-KB7 
Sus 1,2 

STA 6,E£18,2 
MOVL @,6,5NC 
JMP ELS 

JmpP E49 


et! 
417 
4417 
114147 


HSE THE DISCUSSION PRECEDING 
HTEST £45, READ ONCE FROM 
PEACH HEAD ON CYL=@, SECTeO, 
IVERIFY THAT DATABREAU & 


HSKIP IF 2341 
12344 
IGET UISK ADDRESS TO BEGIN WITH 


IBEGINNING HEAD & 


rSEEK | 

ICYLINDER @ 

JERROR IN SEEK, ACABSTATUS 
SKIP TO END OF TEST 

FREAD J 

HADURESS OF DATA BUFFER 
HDISK ADDRESS (IT CHANGES) 
FERROR IN READ, ACLBESTATUS 
SKIP TO END OF TEST 

IGET HEAD # 

FUSE THe COMP, 

HUET & WORD READ 

FUATA ERROR, SEE ABOVE UISCUSSION 
yAC¥8GO00D wORD 

ACL BBAD 


IDECREMENT HEAD # 


tuONE YET ? 
nO 
#YES, GO TO NEXT TEST 


ICART, HEALD 4 SECT @ 1 SECT 
s2311, HEAD 11 SECT @ 1 SECT 
f2314, WEAD 23 SECT @ 1 SECT 





a 061 


ai 

4 
a3 
04 
a5 
06 
@7 

as 
Ov 
10 
1 

12 
is 
14 
15 
lo 
17 
i6 
1y 
20 
21 
22 
23 
24 
25 
26 
27 
20 
29 
3e 
31 
32 
33 
34 
35 
36 
37 
KY.) 
sy 


04347 
04550 
04351 
04552 
04559 
04354 
64355 


64356 
64357 
04368 
643601 


Q4562 
04565 
04364 
043565 
04560 
04567 
043576 


w4571 
04372 
04373 
04374 


04375 
043576 
04377 
v44ne 
64401 
04402 
a4ae3 


04au4 
04405 
64406 
04407 


eMAIN 


086248 E193 
086261 
e@esi3 
006403 
6by402 
0a0242 
286243 


eSH153 
G21115 
040401 
evo2dsi 


86240 E28: 
886261 
O6eSi5 
o20b04 
129415 
006242 
08062438 


830153 
w2siss 
040401 
e@o23si 


060248 E21: 
eao2o1 
Q48515 
020177 
1259414 
086242 
806245 


630153 
o23115 
@40401 
evo2si 


SETP1 
DUSEK 
$13 

JMP 4o3 
IMP 442 
EMALT 
LOUP 


LOA 2,UNUM 
LUA @,TRCL,2 
STA U,,e1 
RECLO 


SETP1 

DOSEK 

313 

LUA @,KbLe 
ANO® 1,%,SNR 
EHALT 

LOOP 


LOA 2,UNUM 
Lua O,7TRCLs2 
S7a @,,¢1 
RECLY 


SETPL 

OOSEK 

31s 

Loa 6,C36 
AND® 1,8,S82ZR 
EmaLtT 

LOOP 


LUA 2,UNUM 
LWA @,TKCL,2 
STA Gy eel 
RECLY 


#CAUSE SEEK ERROR BY 
PSECKING TO CYL 335 


pACLSSTATUS 
pNO ERRORS ON StEK 
tO CyL 313 


PRECALIBRATE THE 
PUNIT WITH A SEEK ERR 


CauSe SEEK ERRUR BY 
PSEEKING TO CYL 335 


paACLSSTATUS 
MNO SEEK ERROR STATUS 
HPFOLLOWING SEEK TO CYL S138 


PRECALIBRATE THE UNIT 
PwITH A SEEK ERROR 


HCHECK FOR ILLEGAL ERRORS 
PALUNG WITH SEEK ERROW 
paCUSSTATUS 

PINTENTIONAL SEEK ERRUR 
FILLEGAL STATUS? "ENO CyL" 
YOR "UNSAFE" OR "CHK wO" 
TUR "DATA LATE" 


PRECALIBRATE THE UNIT 
twITH A SEEK ERROR 


a “ub2 


Bi 
ae 
8d 
a4 
as 
#o 
@7 
UT) 
os 
16 
11 
le 
is 
14 
15 
16 
17 
1s 
19 
20 
21 
22 
235 
24 
25 
26 
27 
28 
ey 
36 
3i 
32 
3s 
34 
35 
3o 
37 
3 
3g 
4u 


044a}0 
044i) 
o44ate 
04413 


04414 
o4ato 
v4aio 
04417 


044208 


04421 
04422 
644623 
04424 
44425 


24426 
04427 
04430 
0443) 
04432 


64433 
64434 
04435 


64436 
04437 
0444y 
oaaa}j 
044d? 


04443 
044aa4a 
64445 
04446 
04447 


eMAIN 


w¥O6253 E223 
SALALA 
005217 
880877 


046253 
Coorg 
eB92et 
O8G117 


666257 


26256 
C86358 
00077 
8462462 
0@0422 


606257 
8863558 
eeeii7 
ot6242 
080415 


6m6255 
005217 
086330 


006256 
286730 
@80117 
veo242 
eoe4es 


086200 
040338 
6867350 
686242 
000243 E22E3 


DURw 
@ 
TAREE 
77 


DORW 
r) 
FUUR 
117 


JSR @ISET 


ReaD 
PRGEND 
77 

EnauTy 
JMP E22 


WRITE 
PROEND 
117 
ERMALT 
JMP E22E 


GENDAT 
THREE 
PRGEND 


READ 
PRGEND S400 
117 

EWwALT 

JMP E22E 


CHECK 
PRGENUL 
PRGEND ©4828 
EHALT 

LOOF 


9SETUP SECTOR 3 & 4 
CYL # 

PUATA TYPE 

TOTSK ADORESS 


ySECT 4 


HTEST READ SECY SeWRITE SECT 4 


PSEGUENCE 

#READ A SECTOR 

yMEmM BUFFER ADDRESS 
PSECTOR THREE 
meReOR, ACLSSTATUS 
#SKIP TO END OF YEST 


pwRITE & SECTOR 

HBUFF ADOR (31S JUST READ) 
FSECTOR 4 

PERROR, AC{SSTATUS 

PSKIP TO END OF TEST 


IGENERATE DATA BUFFER 
sADDR OF DATA GEN 
HOUFFER ADOR, 


rREAD A SECTOR 

tOUFF ADOR, 

HSECTOR 4 

FERROR, ACI BSTATUS 
sSKIP TO END OF TEST 


COMPARE BUFFERS A/B 
paOUR OF BUFF A (CORRECT) 
JADDR OF BUFF B 

HCOMPARE ERROR, AC@=GUOD 
PACL BAD 


4 0063 


04450 
0445) 
4452 
0445s 


04454 
04495 
04486 
04497 


04460 


0446} 
04462 
Q44a603 


04464 
04465 
04466 
04467 
o4a7a 


04471 
04472 
04473 
04474 
04475 


04470 
64477 
045¢2 
w45e1 
w4ove 


645835 
waa" 
04505 
w4506 
043507 
o45iu. 
o45ii 
w45ie2 
e495 
o45id 
w4515 
w4510 
w4ahi7 


MAIN 


46253 E25: 


60088 
205217 
000077 


00255 
oaarue 
eeo2e1 
weeli7 


06237 


eao0258 


005221 
606330 


006257 
e8o530 
000077 
e4o24a2 
000417 


006256 
026732 
O@v117 
~8o242 
weusie 


086256 
086530 
OQ0077 
06242 
600405 


246262 
62635 
¥eGO7Se 
040242 
@b0245 
182000 
040545 
06046 
16244¢ 
040542 
evo2st 
weary 
£44542 





E2se: 


RANSK3 


DURW 
) 


TAREE 
77 


DORw 
.) 
FQUR 
117 


JSR @ISeT 


GoNUAT 
FOUR 
PRGENG 


WRITE 
PRGENU 
77 

EwalT 
JMP E2SE 


READ 
PROEND #480 
117 

MALT 

JmP E23c 


Rrav 
PRGENU 
77 

Ew aut 
JmMP Eede 


CrECK 

PRGEND 
PRGENO 400 
EmALT 

LooP 

AOC 4,4 

STA @,SSKFLG 
JUMP £24 

Sus0 “ve 

STA Y,SSKFLG 
INIT 

Lua 1,C2 

SvTa ¢,SSCNT 


SETUP SECTOR 3 8 4 
CYL # 8B 

POATA TyPE 

POISK “ADDRESS (SECT 3) 


HSECTOR 4 


HTEST WRITE SECT S*nwEAD SECT 4 
PSEWUENCE, 

HGENERATE DATA 

9418 

pADUR OF DATA BUFF 


twRITE A SECTOR 
PADDR OF DATA BUFF 
HSECTOR $ 

PERROK, ACLBSTATUS 
#SKIP TO END OF TEST 


pREAD A SECTOR 

#MEm BUFF ADDRESS 
HSECTOR 4 

HeRROR, ACL BSTATUS 
PSKIP TO ENO OF TEST 


PREAD & SECTOR 

MEM ADYR 

HSECTOR 3 

PERROR, ACLSSTATUS 
WSKIP TO END UF TEST 


HCOMPARE SECTOR 3 & 4 

HSECT 3 

HSECT 4 

COMPARE ERROR, ACAsGUOU (SECT 3) 
pACLBBAD (SECT 4) 


ySET COUNT FOR 
990400 SEEKS 





a “e604 


84920 
w4d21 
u4ds2e 
44523 
v4as24 
04325 
£4920 
04527 
V49S¥ 


v4hSi 
04532 
405s 
04954 
04559 
w453o0 
04537 


¥4o4au 
0494) 
04542 
“vdd4a5 
©4944 


vagad 
©4540 
04947 
04550 
0495) 


0w495e2 
04553 
04554 
64955 
04556 
04057 
v45o~e 
4456) 
véd562 
04563 
Yy4nod 
w4565 
v45b0 
04507 
“4574 
0457) 
04572 
445735 
24574 
64575 
W457 
0a57/ 
edore 
“4ov1 


eMAIN 


yo2aua E243 
240405 
eavaay 
0202u7 
040455 
660293 
apyeee CL? 
ea523! 
cHeai7 


“10775 
“2u774 
024207 
122457 
000774 
H204a1 
e40aal 


Sus 4,0 
STA A, eth 
STA @,,SCYL 
LUA 8.0312 
STA ALLOY 
DURA 

4) 

CYLN 

17 

ISZ bh 
LDA 4,.CL 
Lua 1,C3te 


Susz# 1,0,S6N 


JmP Chel 
Lua @,CSeo 
STA d, CONT 


PwRITe CYL # INTO EACr 
HSECT @, READ B, OF ALL 
ICYLINDERS 


iCYL @ 
HADUR OF DATA GEN ROUT, 
TUTSK ADDRESS 


5 DO 980 SEEKS 


tay 5 TIMES EACH BETWEEN RKANDUM 
ICYLINDER NUMGERS 


006240 GOs 
ovozol 

@OUAWA ,SCYLE 
4@6242 

460436 


evo2s6 
0HO330 
OA0A017 
6802462 
oevddl 


020155 
201040 
122415 
Cavaus 
n@0242 
e40d23 
éWO26$ 
OOObCEY LCYL? 
606242 
eov4ai7 
w¥o256 
e@65SSe 
wOurs7 
640242 
euuai2 
020195 
020100 
122415 
oMvate 
400242 
00644 
OMu704 CSae: 
obuwre® CONT 
4veeued SALTRE 


JSR @I,9ETP 
OOSEK 

a 

ERM ALT 

JMP E24R 


READ 
PRGOEND 
17 

En aLT 
JMP E24R 


LOA a,CYL 
LDA 1, @BUPF 
Subse 1,4,SNR 
JMP 443 
EMALT 

JMP Eedar 
DGSEK 

“ 

EMALT 

JmMP E24n 
ReaD 

PRGEND 

17 

EMALT 

JmP E24 
LUA Be CYL 
LWA L,@BUPF 
SUB 1,0,S5NK 
JMP E24e 
EmALT 

JMP E24 
5a. 

?) 

2 


ISERK 44 

CYL @& 

TERROR, ACLSSTATUS 
1SKIP TO END OF TEST 


DREAD OATA IN SECT O 
mmEM ADDR 

FDISK AVDOR 

FERROR, ACIBSTATUS 
HSKIP TO END OF TEST 


PCURRENT CYLINDER & 
PACTUAL CYL w# 

PCLCYL) = LAST CoRRECT 
ynO ERR 

FLYLINDER # 


HSEEK LAST CYL 
ICHANGES | 


prEaD SEC @ 


MAYBE ADRS ERR 
FCURCYL # 

PwHERE WE REALLY ARE 
$SMuU GE SAME 


$SEEK ITERATION COUNT (2 xX 2548), 





a 0065 


BY 

82 

CK) 
a4 

UE) 

@o 
@7 

a8 
ey 
10 
ii 

12 
13 
14 
15 
16 
17 
18 
19 
206 
21 
22 
23 
24 
25 
26 
27 
26 
29 
3@ 
31 
32 
36 
34 
35 
36 
37 
33 
39 
4 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
$1 
52 
53 
54 
§5 
56 
57 


04002 
04603 
04604 
04685 
646006 
04607 
04010 
64611 
04612 
04019 
04614 
04015 
e46160 
04617 
046028 
04621 
@4622 
04023 
646024 
04625 
04026 
04627 
64638 
04631 
04632 
04633 
046034 
046035 
04636 
04637 
046 4y 
64641 
04042 
04043 
04644 
04645 
@4040 
04047 
04650 
e4651 
04652 
04653 
04654 
04055 
04656 
04657 
04660 
04661 
04662 
04663 
04064 
04665 
04060 
04067 
64670 
04671 


»MAIN 
9EQ24R IS TO RECALIBRATE 


OSU153 E2ars 
e2s1is 
640401 
606231 
666243 E2ats 
0207582 
040732 
086254 GRANS 
024207 
050125 
1434028 
1860433 
660773 
048742 
014768 
00737 
C2454 
101004 
080415 
014432 
e0e4u2 
CB8404 
029747 
040747 
000706 
020746 
040423 
006247 
ee625e 
@88355 
0087708 
20152 E24xt 
24054 
@1B153 
123222 
880413 
04v152 
@30153 
025057 
o2vi5i 
107405 
000766 
002401 
002205 


COVOUG SSKFLGS 
e¢d@08 SSCNTS 


152402 E2ay: 
021057 
025053 
054153 
163404 
e00aus 
151448 
060772 
044152 
050155 


LOA 2,UNUM 
LOA @,TRCL,2 
STA @,,¢1 
RECLO 

LOOP 

LOA @,LCOYL 
STA 0,.SCYL 
JSR @IRAN 
LOa 1,C3i2 
LUA 2,0377 
AND 2,0 


SUBZ 0,1, SNC 


JMP GRAN 
STA 6,LCYL 
OSZ CCNY 
JMP GQ 

LOA 8, SSKFLG 
MOV @,@,S82R 
JMP E24x 
OSZ SSCNT 
IMP #2 

JMP 5 od 

LOA 4,C5@0 
S74 8,CCNT 
JMP GO 

LOA O,SKITR 
STA @,SSCNT 
PCRLF 
MESSAGE 
MSGO6 

JMP yl 
Loa 0, TESTU 
LUA 1,KBI 
TsZ UNUM 
ADDZ 1,8,S2C 
JmMP E24yY 
STA @, TESTU 
LOA 2,UNUM 


LOA 1,UNTHIT,2 


LOA @,NDSKS 
AND @,1,SNR 
JMP E24X 
JMP @,eh 

O4 

] 

v 

$uU5 2,2 


LOA B,UNTBIT,2 


LOA 1,.TU,2 
LUA 3,NOSKS 
AND 3,8,382R 
JMP 43 

InC 2,2 

JMP EQ4Yo)h 

STA 1,T&STU 
STA 2,UNUM 


ORIVE AFTER SEEK ERROR 


PSAVE CYLINDER JUST DUNE 
PGET RANDOM CYLINUER #& 


ye MUST BE <313 


WTRY AGAIN 


ITEST THE SPECIAL SEEK FLAG, 
HIF NON@ZERG, PGM IS NORMAL 
POIAGNOSTIC, IF @ IT IS SEEK 
HTEST LOOP, COUNT 5000 SEEK 5 
’ 


' 

PRELOAD COUNT AND LOOP, 

} 

U 

PRELOAD MULTIPLIER COUNTER, 
’ 

TPRINT QUT 

HA MESSAGE INDICATING 
PYPASS" 

HTHEN LOOP AGAIN, 


ICHECK TO REPEAT STS 
ISTEP TO NEXT UNIT 
PSAVE UNIT 

NGET UNIT BIT 

HAND EXISTING BITS 
HSKPBEDRIVE EXISTS 
9CHK ON NEXT ORY 
HREPEAT TESTS NEXT ORV 
HRESET TO LOWEST 
VEXISTING ORV 

PEXIST BITS 

PSKPaNO ORV 


PTRY NEXT 


a 6260 


Oi 
2 
UR) 
a4 
as 
a6 
7 
UT.) 


04672 
04673 
046074 
04075 
04670 
04677 
04708 
04703 
04722 
04703 
04704 
04705 
046706 
04707 
047108 
04711 
04712 
04713 
04714 
04735 
04716 
04717 
04726 
04721 
04722 
04728 
04724 
04725 


04726 
04727 
047308 
04731 
04732 
04738 
04734 
04735 
04736 
04737 
04742 
04744 
04742 


eMAIN 
THE FOLLUWING TESTS CHECK FOR THE CORRECT OPER, 
POF THE FOLLOWING DISK FUNCTIONS? 
; 1.THAT A wRITE INTO END OF CYLINDER 
} A. WILL CAUSE AN END OF CYLINDER ERROR 
} &. DOES NOT TURN THE WRITE FUNCTION OFF 
, UNTIL THE CHECKSUM MAS BEEN COMPLETELY WRITTEN, 
’ (SEE INC, SC, DELAY) 
’ Ce OOES TURN THE WRITERS OFF COMPLETLY SO THAT THE 
' NEXT MEAD SELECTION DOES NOT TURN THE WRITE 
} CURRENT ON wHERE IT IS NOT WANTED, 
} (SEE DIRECT CLEAR INPUT TO WREN,) 

142420 SUBZ @-@ 

040511 STA @,E25D 

10ilow MOVL ¥,O 

046506 STA @,E25m PORIVE MASK 

006241 E2538 SETUP 

w2eise LUA @,D0TYPE 

6$0505 LUA 2,€25T tRHEAD AORS TBLE 

181112 MOVL® @,8,S2C 

060404 JmMP ,o4 ICARTRIOGE 

151448 INC 2,2 

101202 MOVR 65@,SZC PoKP TS 23541 

151400 INC 2,2 92314 IS THE TYPE 

025000 LUA 1,0,2 IGET LAST MEAD # 

044502 STA 1,€25n AND SAVE IT 

038473 LOA 2,E25m 

G20i151 LUA 8,NDSKS 

113405 ANDO @,2,SWNR WTHIS OISK EXIST? 

080457 JMP E25L¢1 nO TRY NEXT 

020470 LOA @,E250 

663253 DUCC 4,D0SKP PSELECT CURRENT DISK 

224870 LDA 1,K86 

0653353 OQAP 1,USKP ISTRT SEEK Bb 

050166 LDA 2,C4 pwAlT 480 MS 

086227 walT 

020462 LOa @,E250 

624406 LOA 1,E25n 

167868 AvuD @,1! 

667233 OOCC 1,05KP FORV LAST HD SEC 15 ,2 SECTORS 
PUNLESS 2311 SECTOR 53,2 SECTORS 

220067 LUA 2,KB7 piWRITE* 

061833 DOA 4,0SKP 

462153 VO8S O,D08KP PSTRTIWRITE 2 SECTORS 

0380608 LOA 2,KB14 $8208 MS 

006227 WAIT 

060433 DIA 8,0SKP 

169223 MUVZR @,1,SNC pERR SMDai 

CA0404 JMP Ee5ti 

24005 LOA 1,Koil YEND BIT SHD 81 

1235414 ANDW 1,6,SZR 9SKP IF IT DOSN'T 

084403 IMP 443 

666242 E2SEL% CMALT yEND OF CYLINOER NOT FOUND 

046427 JMP E25 900 LOOP 


PWRITE INTO END OF SECTOR AT LEAST APPEARS CORRECT 
HSEE IF THE OATA CAN BE READ CORRECTLY 


a 86067 ,MAIN a @y6u MAIN 


@s READ SeC 13 OF LASY MEAD FOR NO CHKWRD ERR BY 

v2 HOR SECTOR 5 OF LAST MEAD IF 2341 @2 eSele 6866247 NUMES: PLURLF SEND TEST 
63 04743 B2u16e LOA @, BUFF : 03 v5e13 enoadse MESSAGE 

04 04744 824448 Lua 1,025" @4 vdvl4 vuvdod MSG6 "PASS" 
@5 04745 630437 LOA 2,£250 @5 vSel1o 23unad LOA 2,48 
00 247460 147900 AvO 2,3 G6 vdv1O v2DKu0 bOA 1,8,2 
Q7 04747 152440 Sus 2,2 Q@/ odet7 1259¢u5 MOV 1,14,S5NR 
28 04754 6622338 DOBC 4,DSKP Bo ySe2v vd2e1d JMP @,419 
BY B4754 67058 voc 1,038KP By v5¢21 vilduus OSZ 3,2 

$0 04792 #671158 DOAS 2,USKP sSTRKT 2 CYL READ 16 w5422 vsedva JMP @,44 
11 ©4753 ¥3u06d LDA 2,KB14 11 05029 v6u277 InTUS 

$2 04754 wbo227 wAIT LZ 0d¥24 wssun4 LUA 3,4,2 
19 04755 060433 DIA 0,0SKP 1GET STATUS 13 4v9v25 veined Lua ¥,3,2 
19 04756 101113 MOVL® 8,@,)SNC HREAD DONE? 14 v5¥260 “4i77b6 STA 6,92,3 
15 04787 @Oudii JmP €25e2 INO 15 w5e27 anise JMP 8,3 

10 @4768 185283 MOVR We4,SNC YERR SHO Bi 10 45usu vuvdsi2 ao 

17 64761 080407 JMP €2562 yEOC SMD a} 17 

10 94762 #3u062 LDA 2,K812 HEND SIT 13 

19 04763 147415 AND# 2,1,3NR SHO af FOR EOC iy 

28 04764 B80dnd JMP E25t2 HOUT DOESN'T 

24 04765 125200 MUVR tod 

22 w47b0 125205 MUVR 192,35NC }SKP HERE IS ERR 

25 4767 O8N402 JmP .2 10K NO CHKWORD ERR 

24 04770 686242 E25t2i ENALT 1SEc ACe FOR OSK STAT 

25 TETTMER A, NO READ OONE oo, NO EOC C, A CHKWORD ERR 

26 1 BIT Mag BIT {182 OR BIT dah 

27 04771 266243 E€25.: LOOP 

28 04772 824412 Lud 8,250 

29 047759 424056 LOA 1,Kbd 

36 04774 1L23e¢22 ADOZ 4.8,92C Het TILL ORV 3 DONE 

31 04775 080415 JMP NOMES 

32 04776 b4uaes Sta J, €250 

35 44777 a2eaua LOA 0, EZ” 

34 wSeas 141120 MOVZL 8,2 

35 o6001 240402 STA @,E25™ 

30 udetde 420674 JmP £25 


37 o5e49 wbeaue E2sm: A 
38 GObA4 Yeuauyn E28vo! v 
Sy 054d o450uU6 ELST of 


46 vdeo Ybv676 676 IGARTRIODGE 
41 25007 004536 4536 P2341 LAST HEAD 
42 oS@te 611676 11676 92314 HD 23 


43 65211 A4GQ08 EV5H! 2 





a 8269 


v1 
@2 
UR) 
04 
5 
Go 
@7 
06 
ay 
1a 
4) 
12 
is 
14 
15 
16 
17 
18 
iy 
20 
2k 
2¢ 
23 
24 
25 
26 
27 
28 
29 
$e 
$1 
se 
$e 


o585% 
05832 
05450 
eses4 
6528355 
05056 
45037 
U5e4u 
05041 
05042 
o5e4s 
oSead 


05045 
05046 
05447 
0505 
o5051 
vSuse 
e5e5s 
65054 
050538 
@5e56 
05057 
25068 
05¥61 
w5use2 
0506s 
w5e04 
05065 


oMAIN 


054431 RANI 


054427 
040425 
020142 
ou44io 
034426 
163eve 
040142 
111108 
030417 
624415 
OU2416 


024420 
044445 
105120 
125122 


eUD503 


TRANDOM NUMBER GENERATOR 


STA 3,,.UD@3 
STA 2,,UD02 
Sta i,,UDw 
LOA #, RANDOM 
JSR ,uOdSe 
LDA $,.U028 
ALO 3,2 

STA 0, RANDOM 
MOVL @,2 

LUA 2,,uD82 
LDA t,,UD84 
JMP @,UD@3 


HGENERATE A RANDOM 


tNUMBER IN aCe 


ySTORE NEw VALUE, 


LOA 1,,U02i HRANDOM CONTINUED 
STA 1,,.U018 
MOVZL yi 


MOVZL 1,1 


014412 
068776 
167000 
125120 


N$z 
JmP 


eU01@ 
02 


125120 
1238008 
O014En 
G80000 
b66R08 
006008 
eaueve 
653081 
C4816 


eVOGI! 
eUDU23 
oUD0GSs 
eUDLGs 
eVOdas 
eUO218 


aOO @,1 
MOVZL $,1 
MOVZL isl 
AUD 1,6 
IMP O,3 

6 


a #£07@ 


Oi 
G2 
ae 
ea 
65 
a6 
@7 
r-) 
Oy 
10 
11 
12 
165 
14 
15 
160 
17 
138 
{9 
20 
21 
22 
209 
24 
25 
26 
27 
28 
29 
38 
31 
32 
3e 
34 
35 
36 
37 
38 
39 


e5¢60 
05067 
o5u7¥u 
5471 
o5e7e¢ 
B5u735 
05874 
wSv75 
@S“76 
0577 
e5iou 
65101 
b51e82 
05103 
05104 
05165 
65106 
05127 


o5iiu 
o5iit 
Osiie 
o5115 
05114 
o5119 
w5116 
05117 
b5120 
05121 
e5122 


eMAIN 


054460 
698214 
wd0447 
631408 
esoaul 
6iLe4ass 
b10452 
421200 
029406 
100414 
462446 
151400 
1754¢8 
6104u4 
ObH771 
@1v44a1 
weeaan 
Bde uv. 


054436 
624234 
osi4et 
034433 
087468 
641008 
151408 
125404 
060773 
034425 
001482 


eCHeECK? 


eCHEL3 


CTRE 


oGENS 


eGENLS 


HCHECK DATA SUBROUTINE 

» CALL CHECK 

' ADORESS OF VATA BUFFER | 

ADDRESS OF DATA BUFFER 2 

ERROR RETURN, (AC$)@BAD (ACO) #6000 
NORMAL RETURN 


~~ we ws 


STA 3,GENRET 
LOA 22,4406 
STA 2,CTR 
LUA 2,8,5 
Lua 3,1,38 
I8Z GENRET 
ISZ GENRET 
LUA 8,4,2 
LUA 1,6,39 
SuUBa B,1,8ZR 
JMP @GENRET 
InC 2,2 

Inc 3,3 

ISZ CTR 


PERROR 


Jmp 
18Z 
IMP 


eCHEL 
GENRET 
@GENRET 


PCHECK MORE 


PNOKMAL RETURN 


O 


PGENERATE ONE SECTOR OF DATA 

1 CALL GENDAT 

' ADDRESS OF DATA GEN ROUTINE 
, DATA BUFFER ADDRESS 

’ RETURN 


STA 
LUA 
LOA 
LOA 
JSR 
STA 
Inc 
INC 
UMP 
LUDA 
JMP 


3,GENRET 
11,4402 
2,1,8 
3,GENRET 
00,3 
A,8,2 
2,2 
1,1,52R 
eGENY 
3,GENRET 
2,3 


9GET A DATA WORD 


100 MORE 
HDONE 


a #071 


Oi 
o2 
3 
Q4 
65 
86 
a7 
oe 
a9 
10 
14 
12 
is 
14 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 
20 
27 
28 
ay 
36 
34 
32 
33 
34 
35 
$o 
37 
38 
39 
40 
4i 


5128 
e5124 
06125 
05126 
05127 
go513u 
w5i51 
6132 
O5155 
05136 
91395 
w5130 
w5137 
651423 
05141 
oSi4de 
5149 
5144 
05145 


05146 
05147 


eMAIN 


054423 ,wRITES 
e2idea 
62053 
a20152 
625401 
123006 
weos2cs 
620126 
61183 
o1d4i2 
wider 
040235 
0924607 
@20407 wwRit 
1074145 
29435 
“venus 
034442 
eeiave 


C6@dOUR GENRET? 
877677 wet 


PwRITE SUBROUTINE 

1 CALL WRITE 

' DATA SUFFER ADDRESS 
DISK ADORESS 


JmP Tu ENO UF TEST 
NORMAL RETURN 


~~ =e we we 


PERROR RETURN IF 

TIMEOUT (184MS) 

DATA LATE 

ADDRESS ERROR/UNSAFE 
END CYLINUER 

SEEK ERROR 

ANY "SEEKING" 

ANY "SEeK DONE" 

NO "R/W DONE" 


—e we we we ee ee we we 


STA 3,GENKET 


ERROR RETURN, (AC1) ®& STATUS 


LOA 8,8,5 
Oud 8, O0SKP 
LUA 8, TESTU 
LUA 1,1,3 
ADU 1,6 
OUCC &,LSKP 
LUA 8,077) 
QOOAS w,DSKP 
1SZ GENREY 
£SZ GENKET 
Tirwt 

JMP @LENRET 
LOA By ohM 
ANUM O24,SNR 


Ca 


PUNIT # & DISK ADDRESS 
HoIT 7 AND ALL CYL SITSs{ 
WRITE | 


PWwAIT 108mMS FOR INTERRUPT 
STIMEQUT 
HeRROR BIT MASK 


MOVL® 1,1,SNC 
JMP @uUENRET 
LUA 3,GENRET 
JMP 2r3 


PERROR STATUS 


@ 
77677 





05150 
o5151 
0515¢ 
05153 
O5154 
65355 
@51d6 
05157 
65100 
o5161 
w5i62 
05200 
w5164 
85165 


054776 
0214028 
voeasd 
020152 
025401 
120004 
605233 
182402 
v61193 
610765 
w1N764 
040255 
042702 
000753 


eREADS 


TREAD SusROUTINE 


p CALL 
3 


wo we te we 


READ 

OATA QUFFER ADDRESS 

OLSK ADORESS 

ERROR RETURN, CACL) SSTATUS 
JMP TU END TEST 

NORMAL RETURN 


TERROR RETURN IF 


we we te we we we ee we oe 


TIMEOUT (10umMS) 

DATA LATE 

CHECK WORLD ERROR 
ADDRESS ERROR/UNSAFE 
END CYLINDER 

SEEK ERROR 

ANY 4SEEKING" 

ANY "SEEK DONE" 

NO "R/W OONE" 


STA 3,GENRET 


LOA 8,8,5 

DOB 4,0SKP oCA 

LvA @, TESTU 

LOA L,1,93 

AULD 1,0 

Duce 8,D0SKP JUNIT # & OITSK ADDRESS 
Sus @,@ 

DOAS ¥,USKP TREAD | 

ISZ GENRET 

{SZ GENRET 

TTRwT swAIT 108 MS FOR INTERRUPT 
JMP @GLENRET TIMEOUT 

JMP WR sCHECK STATUS 





a 6873 


wt 
02 
as 
a4 
85 


05166 
05107 
o517¢8 
05171 
@5172 
65175 
05174 
5175 
05170 
05177 
05200 
05201 
e52te2 
05203 
w5204 
052a5 
05206 
052067 
o5e1e8 
w52i1i 
wdel2 


wseis 


oMAIN 


054760 
010757 
020152 
063235 
021402 
624125 
123400 
040155 
0240728 
123060 
0613535 
838167 
660227 
G20418 
125414 
eee7al 
w2e22e 
125415 
062796 
034735 
061462 


183677 


»DOSEK? 


2 OMS 


HSERK SUBROUTINE 


1 CALL 
' 


' 
} 
U 


DOSEK 

CYL # 

ERROR RETURN (AC1) @STATUS 
JMP TY END TEST 

NORMAL RETURN 


PERROR RETURN IP 


Se 


TIMEQUT (90045) 

DATA LATE 

CRECK WORD ERKOK 
ADDRESS ERROR/UNSAFE 
ENO CYLINVER 

SEEK ERROR 

ANY "SEEKING" 

NO "SEEK vONE" 

“R/w DONE" 


STA $,GENRET 
1SZ GENRET 
LOA 8, TESTU 
OUCC ¥,U0SKP 
LOA U,a,3 
LOA 41,0577 
AND 1,8 

Sta 8,CYL 
LOA 1,86 
ADD 1,4 

DOaP &8,0SKP 
LUA 2,C5 
WAIT 

LUA Y4,,D 
AND® 1,6,SZK 
JMP @GENRET 
LDA @,C74K 
AND# 1,0,SNR 
JMP @GENRET 
Lua 3$,GENRET 
JmP 2,3 


185677 


HSELECT UNIT 


pSAVE CYL «# 


CYL # @ SEEK 


PwAIT S5Q@QMS (OR UNTIL "DONE") 


PERWOR STATUS 


mNQ SEEK DONE 


a 0074 


Qi 
G2 
03 
64 
65 
ao 
07 
Os 
oy 
iv 
44 
te 
to 
14 
15 
10 
17 
is 
iy 
2u 
21 
22 
23 
24 
29 
20 
27 
26 
ey 
3@ 
31 
Se 
308 
34 
go 
36 
37 
36 
sy 
40 
41 


w5214 
“5215 
od2to 


e527 
ose24 


25221 
oS2ee 


05223 
05224 


05229 
ws220 


05227 
05250 
#5231 
w523e 


052308 
u5234 
05235 
oS236 
09237 
w5eau 
veal 
e5eae2 
05243 


05244 
05245 
65246 
05247 


e5eou 
05251 
udsedz2 
a5258 


eMAIN 


192eaei 
162400 
Bblayuy 


20117 
“UL 4a0e 


b20166 
e614 


620148 
ob1400 


w2ei4as 
661400 


020195 
160nb1 
620155 
081466 


254407 
010497 
ebbsel 
20405 
034325 
105400 
002401 
062008 
Coury 


020156 
19vAV1 
020196 
aby aor 


024197 
16BB0s 
0201357 
68140 


ONES! 
ZEROS! 


TMREES 


POURS 


ALTLS 


ALT3 


CYLANC8 


CYLNS 


NUMSEQ3 


NSRET3 
NS138 


HONC! 


HUN 


SETNES 


SECTNE 


auc 
Sus 
IMP 


LDA 
JMP 


LDA 
JMP 


LOA 
JmP 


LOA 
JmP 


LUA 
CoM 
LUA 
JMP 


STA 
T8Z 
JmpP 
LDA 
LOA 
AND 
JMP 


LOA 
CUM 
LOA 
JMP 


LUA 
COM 
LDA 
JaP 


@,C2525 
a,s 


8,C5252 
0,3 


8,CYL 
4,8,SKP 
8, CYL 
0,3 


3,NSRET 
NS$1 

ool 
6,NSt 
3,C377 
3,4 
@NSRET 


%, HEAD 
6,0,SKP 
4U,MEAD 
4,3 


@,SECT 

0, @,SKP 
@,SECT 

6,3 


a 8075 


Qt 
ae 
UR) 


05254 
05255 
052506 
65257 
05200 
e561 
e5262 
wSeos 
052604 
052605 
05200 
o5267 
65270 
05271 
oSe7< 
“5279 
05274 
65275 
05276 


w5277 
B53te 
oS3el 
05oe2 
0555 
05304 
05305 
05300 
05507 
e5s1e0 
oostt 
o5dsi2 
Bose 
05314 
0919 
65310 
05317 
65520 
05321 
85522 
05328 


MAIN 


esoder 
054514 
geui45 
161604 
o8vaub 
080773 
1244¥d¢ 
044146 
154422 
o54i45 
086247 
086258 
ABd205 
086247 
680250 
one276 
006247 
ea625e 
ebBsia 


006247 
OO021e 
663638 
0008777 
wsudie 
OOilii 
Q24124 
187400 
aseeee 
OS4201 
152497 
166452 
oad4d7 
e24117 
123404 
weed 
000404 
181205 
1eL24i 
1e12e0 
e4ui15e 


e INI? 


oINI18 


PPRUGRAM INITILAIZATION 


PTIME 
STA 3,e1INKET 
LDA @, TIME 
MOV &6,4,S2ZR 
JMP ,06 

JSR @,INI@4 
NEG 1,1 

STa 1,7IME1 
NtEG 2,2 

STa 2, TIME 
PCRLFE 
MESSAGE 

MS61 

PCRLF 
MESSAGE 

MSG2 

PCRLF 
MESSAGE 

MSG3 


PCRLF 

NIOC TTI] 
SKPON TTI 

JUMP awh 

Vila 6,TTI 
OOAS ¥,TTO 
Loa 11,0177 
AND 8,1 

LOA 2,Coe 

LDA 3,Co3 
SUGZ* 1,2, SN 
SusZ 3,1,S2C 
JMP QUEST 

LDA 1,C3 

AND 14,8 

MOVZR 4,0,SZ® 
JMP 4 od 

MUVR 0,8,SNK 
MUVOR 8,8,SKP 
MOVZR 8,8 

Sta ¥,OTYPE 


ICALIBRATION ROUTINE 


PSKIPSNOT CaLIB, 


HUTSK PACK TYPE 


ITYPE @ FOR CART 
’ 1 FOR 2311 
} 2 FOR 2314 


PeaAlT FOR TY INPUT 


PREAD CHAR 
peCmdo 17 
17 olT MASK 


PLHAR MUST O,13, OR 2 


PILLEGAL CHAR TYPED 


ya2, 2314, 63T 45 IS SET, DONE 


1a@, CART, MUST SET BLT B 
yay, 23531, mUST SET BIT 1 





& Be70 


a1 
G2 
UR) 
a4 


09324 
45525 
e33520 
05927 
6535¢ 
65551 


05552 
5335 
699354 
05055 
65330 
05337 
05340 
05341 
wSdae 
05345 
05544 
w59a5 
05540 
05347 
65358 
053551 
4os52 
05559 
05554 
05999 
25350 
05357 
05508 
5361 
o5sb2e 
05903 
65304 


653090 
859600 
35367 
vos7e 
05571 


05s72 
853573 
69574 
05375 


55376 
e537/ 
05488 
J54avy 


a MAIN 


10244¢ 
e4015i 
086247 
eno25ea 
062555 
040247 


vou2ie 
v6361e 
“ieu777 
vOuela 
B6it1i 
w2ai2d 
147440 
wsei7s 
132445 
yeuae2 
wsuzee 
054201 
106457 
132436 
weuseo 
wo SO117 
115402 
w21057 
025053 
044152 
050153 
Lieaes 
w2eayo. 
147400 
107ve 
044151 
00746 


w2eisi 
161805 
ob84e7 
0924C4 
Yadav 


6@0247 
oe6257 
OBS3S2 
ebe7e2 


000247 
@4o252 
0403352 
864725 


eINI2¢ 


eINIS3 


CRs 


eINRET! 


QUEST: 


GSTis 


Sub YY 

STA B,NUSKS 
PCRLF 
MESSAGE 
MSG5 

PCRLF 


NIOC TT! 
SKPDN TTI 

JMP ,el 

DIA @,TTI 
DOAS 8, TTu 
LUA 1,0377 
AND @,1 

LUA 2,C15 
SUBM t,2,SNR 
JmP CR 

LOA 2,C64 

LUA 3,CoS 
SuUdZ# 3,1,S3N 
Susbz24 1,2,SEZ 
JMP OST 

LUA 2,C3 

AND @,2 

LDA 4,UNTHIT,2 
LUA 1p eTUr2 
STA 1, TESTU 
STA 2,UNUM 
Cum 4,2 

LUA 1,NUSKS 
AND 2,1 

ADD @,1 

STA 1,NDSKS 
JMP ,INY3 


LDA 3,NUSKS 
MUV @,8,SNR 
Jmp Asty 
JmP @, INRET 
a 


PCRLF 
MESSAGE 
MSG4 

JmP INT! 


PCRLF 
MESSAVE 
MSG4 

JmP ,INT2 


JTYPE UNIT NUMBERS TO TEST 


TREAD CrAR TYPED 
HECHO THE CHAR 


97 BIY ASCII 


ICR TYPED 


jm MUST BE 6,1,2, OR 3 


PILLEGAL CHAR TYPED 


H(NUSKS) & BIT 15 » UNIT 
' BIT 14 © UNIT 1 
’ BIT 13 © UNIT 2 
! BIT 42 = UNIT 3 


PIF NO UNIT NUMBERS TYPED 
YIT IS AN ERROR 





a 0677 


ay 
2 
a3 
a4 
5 
86 
7 
8 
ov 
10 
41 
12 
13 
14 
15 
16 
17 
18 
iy 
28 
2i 
22 
23 
24 
25 
26 
27 
28 
ey 
30 
31 
32 
33 
34 
35 
36 
37 
338 
3y 
40 
4\ 
42 


05492 
05483 
05404 
05405 
05486 
05407 
o54ie 
06411 
05412 
05413 
05414 
65415 
o5416 
05417 
65420 
65421 
05422 
65423 
05424 
e5425 
05426 
05427 
05435 
v5431 
05432 
054353 


05434 
05435 


05436 
05437 
05440 
@5441 
05442 
u544a3 
05444 


oMAIN 


16240! 
020064 
024176 
123008 
040154 
030425 
€21806 
024161 
187402 
054162 
186404 
000406 
024163 
034154 
123468 
1639008 
641000 
151408 
024411 
132414 
000762 
624046 
125805 
663077 
602401 
C8450e8 


osasue 
085622 


054406 
634008 
054000 
614048 
000777 
602401 
bbRKe 


23833! 
$733 


eSNG 


eSNIE 


FIRST: 
Lasts 


STL! 


HSET ALL 1/0 ADORESSES 


SUB 8,@,SKP 
LOA @,K818 
LDA 1,C33 
AOD 1,8 

STA 6,COSK 
LUA 2,FIRST 
LDA 0,8,2 
LUA t,MSK4 
ANO @,4 

LOA 3$,0PI0 
Sus 3,1,82R 
JmMP 43N} 
LOA 1,MS8K2 
LD& 3,COSK 
AND 1,8 

AOD 3,8 

STA @,8,2 
TInc 2,2 

LOA 1,LAST 
Suse 1,2,5ZR 
JMP ,SNU 
LOA 1,€v0G6S 
MOV 1,14,SNR 
HALT 

JMP @, 44 
START 


#3ET TO 33 
9SET TO 73 


#60 ON 
WDOISK PACK JO INST, 


START 
SET 


POELAY SUBROUTINE 


STA 3,,.STLRET 
LOA $,KB14 
STA 3,@ 

O08Z 2 

JmP el 

JMP @,STLRET 


eSTLRETIO 


a WO7o6 


@1 
G2 
83 
a4 
as 
U1) 
07 
@6 
Oy 
10 
1 
12 
is 
14 
{5 
16 
17 
18 
is 
20 
2i 
22 
23 
24 
25 
20 
27 
238 
29 
30 
31 
32 
33 
34 
35 
36 
37 
36 
39 


05445 
05446 
05447 
¥5450 
5451 
65452 
05453 
05454 
05455 
@5496 
05457 


05460 
05461 
05462 
05465 
05464 
05465 
05466 
05467 
05470 
054713 
05472 
05473 
05474 
05475 
65476 


oMAIN 


6248856 
191005 
001480 
624854 
123¢00 
151223 
880773 
663855 
024078 
065335 
888767 


050164 
vauiad 
odv22t 
v2uras 
v6v2ee 
664433 
13sata 
oeeaus 
101404 
BOe773 
o14a164 
eeu77e 
264433 
020144 
veraee 


eo SSEK3 


ewalTs 


oWTL ed 


wTO3 


INSET A SEEKING FLOP" SUBROUTINE 
WPFOR THE UNITS INDICATED BY (aC2), 


} BIY 15 # UNIT B 
' BIT 14 8 UNIT 1 
, BIT 13 = UNIT 2 
, BIT 12 8s UNIT 3 


LOA &,Ci 40K 

MOV 2,2,SNR 

JUMP @,3 PVONE 
LOA 1,KB4 

AUD 1,2 

MOVZR 2,2,SNC 
JMP ,SSEKe! 
DOC @,0SKP 
LDA 1,Ci@00 
DOAP 1,USKP 
JMP ,SSEKo1 


HTRY ANOTHER UNIT 
PRECAL TMIS UNIT 


SEEK | 

PWAIT ROUTINE FOR "DONE" 

PRUN TIMER 

9(4C2) © MAX RUN TIME, (100MS8/COUNT) 


pe J8O0MS ITERATIONS 
sSav aCo 


STA 2,ITRCNT 
STA @,TEMP 
LOA 2,C174K 
LOA 6, TIME 
NIO @ 

OIA §,0SKP 
ANU® 1£,2,5Z2R 
JMP WTO 

INC @,@,S2R 
JMP eWTLe*! 


PREAD STATUS 


YSOMEONE 13 DONE 
y1@0 MS CHK 


OSZ ITRCNT YOONE 108 MS 
JMP Wil. #00 SOME MORE 
DIA 1,0SKP 

LDA @, TEMP 

JMP 2,3 


a 0479 


Qi 
2 
®e8 
4 
@5 
@6 
07 
O68 
ey 
16 
44 
12 
is 
14 
15 
16 
17 
13 


05477 
05500 
“5501 
B55e2 
05500 
65504 
85505 
u5580 
05507 
65510 
65511 
5512 
85513 
o5514 


eMAIN 


102402 
008405 
020054 
obudes 
182621 
620056 
065233 
@28215 
661555 
O544u4 
0301758 
086227 
@@24a1 
eeugar 





PRECALIGRATE SUBRUUTINE 


oKCLO8 Sus 0,8 
IMP RCL SOL 
eRCLLS LDA O, Kot 
IMP ORCL SOL 
eRCOLZ2 SUBZR O,8,S9KP 
eRCLSS LOA 8,CL 40K 
OOCC ¥,USKP 
LOA 6,Ci1400 
OOAP &0,DSKP 
STA 3,RCLRET 
LDA 2,035 
walt 
JMP ORCLRAET 
RCLWETS @ 


PUNIT @ 
PUNTT 1 
HUNT? 2 


PUNTT 3 
HSELECT 


ENTRY 
ENTRY 
ENTRY 


ENTRY 
UNIT 


PRECALIBRATE 


PwATYT 1,3SEC (OR UNTIL DONE) 





a 008e 


a4 


05515 
65516 
05517 
99026 
05521 
05924 
05525 
05524 


85525 
05526 
05527 
035530 
05531 


65532 
65933 
65534 


05535 
05550 
65957 
05540 
05541 


05542 
05548 
05546 
05545 
05846 


05547 
05556 
a5551 
05552 
65553 


05554 
05555 


85556 


e MAIN 


054441 
023400 
4d41¢ 
w2i4ui 
640412 
021462 
040aya 
640428 


006237 
o66261 
BEBOUe 
86242 
080422 


086255 
ees2i4 
086336 


o@6257 
085558 
C06817 
e8o242 
080412 


080256 
8267350 
888017 
086242 
wbe4aeds 


e6o26? 
2003556 
286750 
806242 
686243 


234402 
083403 


BESABe 


PSEEK WRITE/REAO/CHECK SUBROUTINE 


PCALL DORw 


i CYL# 
i ADDRESS OF DATA GENERATOR 
, DISK ADORESS 
, RETURN 

eOORWS STA 3$,0nWRET 
LOA @,8,3 IXFER CYL #& 
STA @,,00 
LOA 8,1,3 IXFER ADOR DAT GEN 
STA @,.001 
LDA €,2,3 IXPER DISK ADOR 
STA 8,,D02 
STA 8,,003 
JSR @ISET 
VOSEK ISEEK JJ 

200% é CYL & 
EWALT PERROK, ACL SSTATUS 
JmMP £,00 HSKIP TO ENO OF TEST 
GENUAT IGENERATE DATA 

20018 ONES ADDRESS OF DATA GEN 
PRGEND MEM ADOR 
WRITE WRITE 13 
PRGEND MEM ADDR 

»bO23 17 HLISK ADDRESS 
EMALT TERROR, ACL SSTATUS 
JmP E00 SKIP TO END OF TEST 
READ PREAD |] 
PRGENDO4RG MEM ADOR 

2VUS3 17 #DISK ADDRESS 
EWAaLT? JERROR, ACIBSSTATUS 
JmP E,00 ySKIP TO END OF TEST 
CHECK JCOMPARE BUFFER &/B 
PRGEND sa 
PRGEND*40¢ 1B 
Ernaly COMPARE ERROR, AC@aGO0OD 


E.vuo3 LOuP 


LDA 3,ORWRET 
Jmp 3,3 


ORWRET3 ¥ 


pACLEBAD 





aA 66861 aMAIN 


Bt 

a2 PwAIT FOR INTEMRUPT TIMEOUT APTER 18a MS 
a3 PRETURNOL IF TIMEOUT 

a4 PRETURNO2? IF INTERRUPT 

a5 

86 O5557 620146 ,Iwrs LDA @,TIMEL 

67 06556u 860177 INTEN PENABLE INTERRUPT 

08 38561 1eieee MOV 8,8 

BY 65562 1814465 INC 8,6,SNR yCOUNT 1828 MS 
16 25563 @88443 JMP 43 

11 05864 063400 SKPHN @ TYPE 1 LOOP 
12 @5565 080774 JMP ,IWTe2 

19 655660 6640277 TNTOS TNO INTERRUPT 
14 05567 064433 UIA 1,08KP 

$5 05574 2034028 JmP 8,3 PERROR RETURN 
16 

47 85571 064433 IReT!s DIA 1,0SKP 

18 @5572 801401 JmP 4,3 TNORM INTERRUPT RETURN 
19 

20 ICHOCSE AN ACTIVE O1SK UNIT 

21 PRETURN WITH UNIT # IN AC2 

22 ’ UNIT @ # 4 

25 i] UNIT { 8 2 

24 ’ UNIT 28 4 

25 ’ UNIT 3 8 18 

26 

27 05973 52521 ,AVSKS SUBZL 2,2,SKP 

28 45574 151120 MOVZL 2,2 

29 09575 w20151 LDA 8,NUSKS 

36 65570 143405 AND 2,8,SNR 

31. @5577 688775 JmP 03 

32 05600 bide JmP 6,3 

33 

34 ISEEK SUBROUTINE 

35 » CALL SEEK pac2 8 UNIT 
36 i N CYL «# 
37 ’ RETURN yaCi 8 STATUS 
38 

dv 65001 854422 , SKE STA 3,SKRET 

48 05602 126402 SuB 1,1 

41 65609 626056 LOA @,Kb1 

42 88004 191222 MOVZR 2,2,382C 

43 25605 886483 JMP 4SK} 

44 65006 167864 ADO 6,1 

45 5047 060775 JmMP a3 

46 

47 65610 067833 .SKi!8 Ooc 4,0SKP SELECT UNIT 
498 85611 821400 LDA 8,080,959 

49 B56012 624070 LDA 1,KB6 

Se v5015 123800 AUO 1,28 SEEK + CYL & 
51 865614 061333 DUAP #4, DSKP 

52 65615 258107 LOA 2,C5 

5S 05016 046227 wAIT dwATT SOQmMS (COR UNTIL OONE) 
534 85617 810402 TSZ S$KRET PaACLBSTATUS 

59 465628 an2401 JMP @SKRET 


$6 05021 @@800@ SKRET: 2 


a 6882 


@1 
@2 
@3 


e5622 
65623 
e5024 


65625 
05626 
05027 


05636 
65631 
05632 
650355 
05034 
w5035 
05636 
6560357 
05646 
05043 
o5oa2 
050435 


05044 
05045 
056046 
05047 
0565 
05651 
05052 
05058 
65654 
05055 


eMAIN 


654432 
17652? 
286486 


054427 
634167 
08daus 


054424 
634433 
062677 
040420 
044416 
050414 
175400 
654446 
176402 
654405 
654405 
040436 


088144 
46G080 
898820 
488880 
d808ee 
e868ue 
vbbe08 
eeveve 
eoveve 
OB0888 


2SET3 


oSETPY3 


eStTuP? 


ITRS 
ITRCT3 
ESWITs 
ERRCTS3 
eRTRNE 
SAV23 
SAV\3 
Saves 
LOUPR: 
DSWT3 


STa 


$,LUOPR 


SuBZL 3,5 


JmMP 


STA 
LOA 
IMP 


STA 
LOA 


eSETUPO2 


3,LOOPR 
3,05 
eSETUPS2 


3,LOOPR 
3,1TR 


TORST 


STA 
STA 
STA 
Inc 
STA 
Sus 
STA 


8, SAVE 
1,9AV1 
2, SAVE 
3,3 
3,IYRCT 
3,3 
3,ESwIT 
3, ENRCT 
aL OPiel 


PITERATE ONCE 


VITERATE 5 TIMES 


FADURESS OF TOP OF LOUP 
STHIS ROUTINE INITIALIZES 


ye ACH TEST 


4 @60863 MAIN a 8084 MAIN 


BS @i 

G2 05656 054772 ,LUPO! STA 3,eRTRN PINTRODUCE A SHORT @2 65727 @@uu4sd5 PCENT3 "% ICHARACTOR 

@3 05657 17641 SUS 3,3,SKP paC3u@ 18 WAIT Sw, @3 09738 176440 Sus 3,3 

04 84 05731 454716 STA 3,ERRCT 

O5 05664 B54776 LOOP! STA 3,.,RTRKN HEND OF TESY ITERATION 65 S732 034714 CYCTS: LOA 5,ESWIT 

G6 65061 wse77¢e STA 2,SAV2 86 85733 175004 MOV 3,3,SZR 

Q7 65662 waa7r7e STA 14,SAV1 07 65734 080418 JMP CNS ITHERE HAS BEEN AN ERROR 
O38 y5008 “40777 STA 6, SAVO 06 BWS5755 Y20710 CYCi! LUA @,SAava PRESTORE aCt$ 

OY wS064 1754u4 MOV 3,3,SZR PINSERT WAIT? @Y 05736 v24714 LDA t,SAV1 

16 65665 uaeais JMP GLOPY tno 16 65737 @34712 LUA 2,SAV2 

141 85666 024146 LOA @, TIMES 11 05740 1475112 MOVL® 3,3,SZC SSWITCH Q 

12 868667 424233 LOA 1,C1774 FTIME/1026 12 35741 080746 JmMP .LOPX (1) PROCEED 

13 @5670 123700 ANDS 140 £3 05742 086165 JSR OSTALL IKILL TIME (CIORST) 
14 65671 123240 ADDOR 1,8 14 05743 wb2711 JMP @LOOPR 9(@) 8L00P ROUTINE 
15 956072 121248 MOVUR 3,08 15 

10 056073 161020 MOV 8,¢@ 16 05744 074477 CNS3 REALS 3 #ERROR LOOP, XS A RECAL 
{/ 08074 101405 INC @,¢,SNR 17 08745 624973 LOA 1,KBS PREQUESTED ? 

18 05675 oavaes JMP LOPS ISTALLED 90 ; 18 05746 187415 AND® 1,3,S5NR 

19 08676 863402 SKPBN @ MMICROSEC 19 85747 wbuale JMP CNS) yNQ GOON 

20 05677 800774 JMP 404 28 65758 175302 MOVS 3,3 SYES, ASSEMBLE THE 
21 65708 662677 .LOPYt! TORST 24 65751 324170 LO4 1,C6 UNIT # FROM 8WS5H6 
22 05701 8134744 USZ ITRCYT 22 05752 137628 ANDZR 1,3 

209 65782 8460458 JmpP CyCcrTs NOT $80 TIMES ITERATED 23 68753 w2idi13 LDA 8, TRCL,S 

24 85783 w34741 LDA 3,I1TR IRESET ITERATION CNTR 24 05754 wadanl STA O,,41 PICK A RECAL 

25 68704 US4741 STA 3,ITRCT 25 208755 Q¥o2354 RECL3 SRECALIBRATE }1 

25 85705 o84741 LOA 3,ESwIt 20 85756 «4@4533 JSR LY FDELAY 1 SEC 

27 08706 175005 MOV 3,3,5NR 27 

26 05707 O02741 .LOPX3 IMP @RTRN 28 05757 074477 CNSit REAQS 3 TIF Swast DELAY 

29 65716 0874477 REAUS § 29 85768 420072 LDA A2,Kb4 >< SEC, 

3@ 85711 175120 MOVZL 3,3 Seo 65761 117404 AND @,3,82ZR 

34 5712 175108 MOVL 3,3 34 85762 3294527 JSR .DLY 

32 65725 275103 MUYL Sed, SNC 32 05763 634672 LDA $,UST }FORCED 2 SEC DELAY 2? 
35S 85714 BOUdi4 JmMP PCENTo$ 33 65764 175005 MOV 3,3,SNR 

34 65715 066247 PCRLF PPRINT CARRIAGE 34 65705 Yee4e3 JMP 443 #NO 

35 68716 824731 LDA 1,ERRCT 35 05766 444523 JSR JULY HYES, 1 SEC 

36 657137 680725 LOA 2,27R 36 85767 444522 JSR OLY ' 4 SEC 

37 08728 004555 JSR MULT 37 05770 074477 REAUS § 

36 98721 838723 LUA 2,1TR 38 65771 680744 JMP CYCi 

39 05722 064597 JSR OlVO 3 

40 65723 206511 JSR @LPLEC IPRINYT VALUE 

41 05724 820403 LOA @,PCENT JEXAMPLE! 89% 

42 98725 0466546 JSR @ICHAR 

43 057260 sueave JmP PLENTSI 





a 88865 


@1 
2 
a3 
4 
@5 
86 
67 
86 
ov 
18 
ti 


68772 
85773 
03774 
e5775 
05776 
05777 
06008 
66001 
06002 
66085 


66004 
a6eas 
06ue6 
06007 
262012 
66811 
06012 
o6e19 
06014 
06015 
26016 
66017 
86820 
06021 
06022 
w6e29 
06024 
06825 
66026 
06u27 
06030 
06051 
e6bd2 
06833 
060354 


6055 
66056 
06037 
062040 
66641 
66042 
06845 
w6uad 
06045 
66046 
06047 
06050 
062051 
06052 
66253 
06054 


oMAIN 


054656 
176520 
200483 
6546535 
176400 
054656 
034646 
175084 
084108 
054645 


084433 
B5464i 
074477 
1771312 
000402 
e84aua 
010655 
062635 
@82634 
054634 
0406355 
€44655 
006247 
086250 
066e55 
820625 
040622 
1260080 
1670¢e 
684525 
620623 
024621 
662617 
606248 
0060160 


141520 
weve 
o54ass 
e44as3 
o2anae 
1250064 
aeeaes 
024407 
sabes 
063077 
002405 
eua7ad 
060277 
ee2e52 
eeveue 
PT TLL) 


otbHit 


eEWALTS 


oEH28 


ERRIS 


ERETS 


EPRINTS 


ICHAR! 
IPDECS 
WEAVERS 
PC 


AUTOERS 


eAABit 
eAAOSt 


STA 3, eRTRN 
SusZL 3,3 
JMP .EH2 
STA 3, eRTRN 
$us 3,53 

STA 3,0SWT 
LOA 3,ESWIT 
HOV 3,3,SZR 
JMP ERET 
LOA 3, eRTRN 


FERROR, C(3) PC 


JSR AUTOER 
STA 3,ESWIT 
READS 3 

ADUL® 3,3,S2C 
JMP ERET 

JSR EPRINT 
1SZ ERRCT 

JMP ®,RTRN 
IMP @,RTRN 
STA 3,SAV2 


STA @,SAVO 
STA 1,SAVi 


PCRLF 
MESSAGE 
HEADER 

LUA 8, aRTRN 


STA @,E8wit 


aoc 1,1 
ADD 6,1 
JSR POCT 


LDA @,SAVO 
LOA 4,SAV1 


JMP @SAV2 
CHAR 

POEC 
eTXTE | 

i 


STA 3,,AAGS 
STA 1, ,AA@} 
LOA 1,EGGS 

MOV 1,1,S2R 
JmMP 4465 

LDA $,,AAG1 
LUA bp, eRTRN 
WALT 

JMP @,AAGS 

JSR EPRINT 

INTOS 

JMP @EGGS4 
@ 

) 


PERR WITH FORCED | SEC OELAY 


PERROR SUBROUTINE 
PERROR WITH NO DELAY FORCED 
HVELAY SWITCH 


POPERATOR,SET SwITCHS) 


WL00K AT SwITCH 1 


IPRINT CARRIAGE 
PAND HEADER 


sPC OF ERROR 


a 0086 


81 
a2 
as 
84 
65 
@o 
@7 
a6 


oy 


16 
4a 
1é 
18 
14 
15 
16 
17 
18 
iy 
206 
2i 
22 
20 
24 
290 
26 
27 
28 
29 
$e 
31 
32 
3s 
34 
35 
36 
37 
38 
3g 
46 
41 
42 
43 
44 
45 
40 


66055 
06056 
06057 
66860 
06061 
06062 
060685 
66064 
06065 
06866 
00067 
06070 
06071 
boe72 
06873 
06074 


06875 
06676 
06077 
06106 
06161 
66102 
66185 
06104 
66305 
66186 
06107 


@6116 


@6111 
06112 
06115 
06114 
@61415 
06116 
C6117 
06120 
06121 
e6i22 
v6i25 
06124 


eMAIN 


1824008 
054431 
1424382 
obeual1s 
@54426 
034426 
125120 
141108 
142432 
344406 
125168 
179404 
686773 
170441 
176420 
“@2413 


102460 
54411 
034411 
125203 
1Bt2e1 
145220 
175404 
600774 
125260 
CG24b1 
080008 


1777608 


e20172 
048164 
020145 
260008 
0644353 
127461 
063877 
181404 
008773 
014t64 
080778 
081408 


paACi REM ACUB(ACO, ACI) /AC2 


OIvio3 
DIvbO3 


DIvoe 


DLOOP? 


DEXT3 


#(ACU, ACL) SACL eAC2eaCu 


MULTS 
MULTAE 


MLOOPS 


MSAvs 
M208 
oOLYS 
eOLYS8 


Sus 0,8 


STA 3,MSAV 
2,8,82C 


Subza 
JmP DEXxT 
STA 3,MSAV 
LvA 3,420 
MOVZL tet 
MOVL 40 
Subs 2,0,S82C 
SUB 2,8 

MOVL ie 

INC 3,35,92ZR 
JMP OLOUP 


S$uBOo 3,3,SKP 


SuUBZ 3,5 
JMP @mSAV 


SuBC 0928 

STA 3,MSAYV 
LOA 3,20 
MOVA t+%,SNC 
MOVR 0,6,SKP 
ADUZR 2,8 
InC 3,35,S82R 
JMP MLOOP 
MOVCR 1,1 
JMP @MSAV 

@ 


728 


LOA 86,Ci2 
SYA B,ITRCNT 
LOA @,TIME 
NIO @ 

OIA 1,0SKP 
AND 1,1,SKP 
MALT 

INC 0,8,S2R 
JMP .OLYLe% 
OSZ ITRCNT 
JMP AOLYS 
JMP 0,3 


HOIVIDE 


PMULTIPLY 


sOELAY 3 SEC 
918.X180MS 


9100 MS TYPE 2 


HNO SKP? 
HSTALLED 10087 
mNOT YET 

a SEC,? 
STALL MORE 


4 8487 {MAIN a 0666 ,MAIN 


Oi ITELETYPE NON INTERRUPT PACKAGE @1 w0153 142404 ZOCT: SUB 4,8,SKP 
2 ACL, AC2 SAVED @2 ¥6154 820402 PUCTS LUA @,P,C62 
a3 y"MESS" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBLER @S 66195 wd¥4d7 STA 2,P,ac2 
Q4 P"CRLE" PRINTS A CARRIAGE RETURN 04 6150 030435 LOA 2,0CTAB PPRINT CCL) IN OCTAL 
e5 P"POCT" PRENTS CCA) IN OCTAL @5 06197 wtuaua IMP .o4 
ao P"ZOCT* PRINTS CC1) IN OCTAL, LEADING ZEROS SUPPRESSED Bb w6160 490494 PDEC! STA 2,P,AC2 
a7 r"POEC" PRINTS CCL) IN DECIMAL, LEADING ZEROS SUPPRESSED, O7 96161 430442 Oa 2,0ECTS PPRINT CCL) IN DECIMAL 
ag ITHE ABUVE THREE ARE FOLLOWED BY THE TAB IN P,TAB BB 6162 1424ue Sub 0,9 
ay P"TINO" ACCEPTS OCTAL, ANU BY 66465 54513 STA 5,MESSR }OOTH ENTRYS PRINT NUMBER 
10 P"TINDY ACCEPTS DECIMAL SINGLE PRECISION SIGNEO INTEGERS 10 46164 044447 STA 1,P,aCy 
44 PINTO ACL FROM THE TTL, LEADING NULLS, TABS, 41) 06165 040445 STA @,Z8UPP THEN TAB TO NEXT POSITION 
12 JAND SPACES ARE IGNORED, A 16 BIT UNSIGNED INTEGER IS 12 86166 #50461 STA 2,.41 
13 HFORMED, THEN NEGATED IF A MINUS SIGN IS TYPED, tS 06167 vavewe DECOCTS B PA"LOA 2, TABLE" INSTRUCTION 
44 PEXIT AT CALLe! IF INPUT ERROR wITh ACOGBAD CHARACTER, 14 06170 v10777 18z ,e1 
19 1 (NOT A LEGAL DIGIT OR TERMINATING CHARACTER) 19 66171 020444 wDA byP,TAG 
16 PEXIT AT CALL@2 UPON TERMINATING CHARACTER 16 w6172 193005 MOV 2)2,SNR HIF TABLE ENTRYSO 
17 ) WITH aCasa, 8B, 48, 12, 55 17 “6173 380752 IMP PEXIT PEXIT wITH NO TAB 
ib } FOR NubL, TAB, SPACE, CARRIAGE RETURN, COMMA 18 46174 034636 LDA 3,ZSUPP }ZEROS SUPPRESS STUF 
19 JTHE ABOVE WALT FOR YTO DONE, THEN CLEAR TYO, 19 B6175 1424u0 SUB 4,8 
22 P"ChAK" PRINTS ASCII CHARACTOR IN C(Q)RI Cl@)L MUST BE @, 20 86176 146452 DECOT: SuHOM 2,1,S82C 
ai JEXITS CALL #2 IF C(d) Rad, CORRECTS THE PARITY, 21 66177 “evans JMP DECP 
22 PSIMULATES TAB ON ASRSB, 22 06200 1404008 8uUB 2,1 yFORM THE DIGIT 
23 I'TYPE" PRINTS C(W)R, MUST NAVE PROPER PARITY, EXITS AT 2S 06201 434435 LUA 3,P,C62 
24 ICALL@1,. REPLACE "TYPE" WITH INTERRUPT TYPE IF DESIRED, 24 e202 181400 INC @,2 
25 25 86203 240773 Jp DECOT 
26 6125 BS455t MESS! STA 3,MESSR JPRINT A TEXT MESSAGE 26 06204 151235 DECPI MOVZR® 2¢2,SNR 
27 86126 444505 STA 1,P,aCy 27 s6205 ¥saast LOA 3,P,C68 
26 06127 u5u5e5 STA 2.P,402 28 v6206 Udd4R4 STA 5,ZSUPP 1C(@) aOIGIT 
29 46130 2140546 1SZ MESSR 29 w62u7 163800 ADD 3,2 IMAKE ASCII 
3@ 26131 wdieer LOA 2,28,5 1C(2) POINTS TO MESSAGE 30 v62ie 175004 MOV 3,3,S82ZR 
33 86432 8245u5 LDA 1,P,377 14 8 BIT MASK $1 86211 064427 JSR CHAR SPRINT 
32 66133 221008 LDA 8,8,2 1C(2) 8DATA WORD 32 06212 000755 JMP DECUCT }GET NEXT DIGIT 
33 66134 125312 MOVL® 4,1,SZC 33 
34 Q6135 129741 ANOS 1,0,SKP 34 Y6235 v3e425 OCTABS LDA 2,,01%,°DECOCT 
35 66136 125au1 AND 4,8,S6P ICC) BDATA CHARACTOR RIGHT 35 26214 180008 1eaeae 
36 06137 181480 INC 2,2 HINC TO NEXT WORD 30 U6ELS BluBue 1eoned 
37 e6ida 1246802 COM 1,1 FLIP MASK 37 veZio veices ious 
38 u6i4i) 004477 JSR CHAR PRINT 38 46217 vbulee 16e 
39 6442 U8O771 JMP MESS96 PANOTHER $9 V6220 vduole te 
40 @6143 vdudee Jue +2 46 w6e21 cvoeul 4 
44 8144 BOaa74 PLLST JSR CHAR 41 86222 vdudes v,] 
42 06145 024466 PExITS LUA tePe aly 42 06223 030455 DECTBt LOA 2,,4he,eDECOCT 
49 06146 650466 LOA 2,P,aC2 40 w@eei2 .RDX ia 
44 06147 663511 SKP8Z TTO 44 06224 623420 Levee 
45 86150 608777 IMP yal 45 06225 wvi7se 146eo 
46 o6i51 vou2il NIOC TTOo 46 B62Z20 wuelaa 18e 
47 66152 we2se24 JP @MESSR PLAST 47 6227 wuvule 18 
46 48 uS230 udoael i 

4y¥ wh2s) vaudue 0 

50 OUdC1G WROX 6 


S91 46232 Yuuuus ZSUPPS 2 

S2 6233 vdsert® P.aCi: 8 

50 6234 wbunee P.aCes ¥ 

54 “6¢55 bHvE1L Pe TAB: 11 TUHARACTER PRINTED AFTER NUMBERS 
$5 v62360 eUsuom P.C6di 6H 

50 66237 whus77 P.3778 = S77 





a 8089 


Ft 
62 
a3 
a4 
65 
6 
07 
68 
ad 
16 
4) 
12 
is 
i4 
15 
16 
17 
18 
iy 
20 
23 
22 
23 
24 
25 
26 
27 
28 
29 
3é 
33 
32 
33 


66248 
06241 
06242 
06243 
6244 
06245 
66246 
06247 
06250 
062351 
o625e 
06255 
06254 
@6255 
06256 
66257 
66260 
66261 
86262 
06265 
06264 


06265 
06266 
66267 
06276 
06271 
06272 
662735 


06274 
26275 
86276 


aMAIN 


054434 
181305 
OBLdel 
11si2e 
177804 
000777 
1032280 
1813508 
034452 
116445 
680463 
004424 
082420 
0204590 
084421 
020416 
034441 
163404 
0607793 
048412 
082410 


054411 
044745 
@50745 
O20434 
004747 
@20431 
@80651 


288008 
eegoee 
220008 


CHAR! 


CHARIS 


CHA,33 


CRLF & 


CHRETS 
CHORZ! 
MESSRI 


STA 
MOVS 
JmP 
MOVZ 
ADD 
JMeP 
AOOR 
MOVS 
OA 
Sus 
JMP 
JSR 
JMP 
LDA 
JSR 
LOA 
LDA 
AND 
JMP 
STA 
JMP 


STA 
STA 
STA 
LOA 
JSR 
LOA 
JMP 


@ 
8 
@ 


3, CHRET 

@,0,SNR 

1,3 

L @,3 
3,5,SZR 
eel 
6,8 
@,e@ 
3,P,Cit 

@,5,SNR 

CHA,3 

TYPE 

OCHRET 
@,P.2408 
TYPE 
@,CHORZ 
3,P.C7 
3,8@,32R 
Cra.s 

@,CHORZ 

OCHRET 


3,MESSR 
1,P,aCy 
2,P,aCc2 

a,P.CiS 

CHAR 
@,P,Ci2 
PLS? 


PPRINT C(B) RIGHT 
PRETURN #2 IF NULL 


HCOMPUTE EVEN PARITY 


VIS THIS A TAB 


HYES 
MNO PRINT IT 
PEXIT 
PSIMULATE A TAB 
pwITH { TO 7 SPACES 


HSAVE RETURN 


PPRINT CARRIAGE AND LF 


a Auge 


66277 
06300 
66901 
66502 
66383 
06304 
06385 
66526 
06307 
26310 
66511 
66312 
@63135 
66314 
€6315 
66516 
66317 
06328 
66521 
e6s2¢ 
663285 
06524 
b6925 
66326 
06527 
06330 


eMAIN 


054430 
074477 
177122 
o8eana 
@63511 
606777 
o6ssit 
0347351 
175226 
1634u2 
116043 
esaaia 
162432 
630761 
634407 
116445 
654756 
662407 
666007 
obeell 
ebeei2 
00ve1s 
e8024an 
ebeuad 
eBvreA 
BO0A08R 


TYPES 


P.C78 
PeCili 
P.Ci23 
P,C153 
P,2443 
P,C4038 
TYPRET3 
PRGENDE 


STA 3,TYPRET 


HTYPE THE C(O)R TF 


READS 3 SWITCH 1(8). 
ADUZL 3,3,82C 

JMP 444 PINNIGIT TYPE EXIT, 
SKPBZ TTO 

IMP gal 

VOAS @,TTQ 

LUA 3,P.377 

MOVZR 3,3 

AND 3,8 

AvCcO By 3,SNC 

LDA 3,P,C4A 

SUSZ# 3,8,S8Z2C #SKIP NON@PRINTING CHAR 
182 CHORZ 

LDA 3,P.C18 

$udd @,3,S5NR 

STa 3,CHORZ FCLR HORZ POS 
JMP @TYPRET 

7 

ii 

12 

15 

248 

4e 

Q 

a PREST OF CORE IS BUFFER 


a 809) 


@1 
G2 
83 
a4 
@s 
a6 
@7 
a8 
69 
1 
it 
12 
13 
14 
15 
to 
17 
18 
19 
26 
21 
22 
23 
24 
25 
26 
27 
268 
29 
32 
$i 
32 
$e 
34 
35 
36 
37 
38 
3 
40 


06331 
66332 
66550 
06534 
063355 
06336 
06337 
06348 


66341 
66342 
06543 
06344 
06345 
06346 
06347 
06552 
06551 
86552 
863585 
063554 
86355 
66356 
06557 
66560 
06561 
86362 
663635 
66564 
86565 
06366 
86367 
06374 
86371 
#63572 
66373 
06374 
06375 
66376 
06377 
46488 
06403 
@6402 
06403 
86404 
064aa5 
06486 
66407 
66410 
v6alh 
w64i12 
e643 
06414 
@64158 


5 W6410 


“6417 


eMAIN 


Q@20772 TINC,8 
604745 
OLO743 TINK, 
024677 TINR,! 
034675 
375162 
124400 
060606 


162121 TINO: 
102442 TINO? 
054733 
950672 
036756 
11308¢@ 
102440 
844662 
034661 TINS,3 
175004 
2828768 
654657 TINw,! 
063618 
600777 
0606128 
0446608 
634745 
116444 
181015 
68705 
0244352 
146215 
COn744 
160424 
400405 
034640 
177208 
054636 
eeo76e 
130435 TINm,2 
o8b7382 
624418 TINN,3 
107822 
146543 
@O0731 
010626 
020626 
L6:1e0 
419120 
179128 
1$7@08 
149220 
1252352 
117200 
080737 
177728 TINL,3 
600055 TINg,3 





LDA 
JSR 
1sz 
LUA 
LDA 
MOVL 
NEG 
JmP 


agcz. 
$yBO0 
STA 
sta 
LDA 
EYs}») 
su60 
STA 
LDA 
MOV 
IMP 
STA 
SKPON 
ump 
Oyac 
ISR 
LOA 
Suse 
MOVA 
IMP 
LOA 
A0C# 
IMP 
S$ub2 
JMP 
LOa 
ADDR 
STA 
Jap 
Suda 
JMP 
LOA 
4N0Z 
SuUBLe® 
JmMeP 
1sz 
LOA 
MUOVZL 
MOVZL 
MOVZL 
ADU 
MOVZR 
MUVZR# 
AUU 
JMP 
00 
55 


@,P.Ci2 
TYPE 
MESSR 
1,P,AC4 
3,Z238UPP 
3,3,82C 
1,1 
PEXITeY 


@,0,SKP 
8,8 
3,MESSR 
2,P,4C2 
2,P,Ci2 
8,2 

0,8 
@,Z2SuUPP 
3, ZSUPP 
3,3,8ZR 
TINK, 
3,P ACL 
TTI 

eel 
@,TT! 
CHAR 
3,°,C48 
@,5,38Z8 
@,8,SNR 
TINS, 
1,TIN2, 
Oe3,5NR 
TINX, 
@,1,92R 
YTINM, 
3,Z2SuPP 
3,3 
3,ZSuPP 
TINw, of 
1,3,5NR8 
TINC, 
1,TINI, 
@,1,S82C 
2e1,5NC 


HOCTAL ENTRY 
HDECIMAL ENTRY 


paC2 IS SAVED 


IMINUS SIGN ANO LEADING SPACES FLAG 


ISPACE, TAB, OR NULL 
1COMMA 


MINUS 
INO 


ICOMPLEMENT SIGN 


HIS TY A CARRIAGE RETURN? 


HSKIP IF NOT A OVGIT 
WSKIP TF OIGIT 


HUUT OF LEADING SPACES 


90 ULL P,ACLIS © NEw DIGIT 


HSKIP IF QCTAL MODE 
HADO 2 OLU P,ACi'S 





a Q0692 MAIN 
ay 
Ce 
a3 
Q4 
as 
@o 
a7 
a6 
ay 
18 
11 
le 
is 
14 
15 
16 
17 
18 
iy 
20 
2i 
22 
23 
24 
29 
20 
27 
23 
29 
3¢ 
3t 
32 
36 
34 


IPROCESSOR TIMER PACKAGE 

THIS PACKAGE IS CALLED WNENEVER IT IS NECESSARY YO 
TIDENTIFY TRE MEAN TIME SASE OF THE COMPUTER IN 
JWHICH THE PRUGRAM RESIDES, THE MEAN TIME BASE MAY 
TTHEN BSE UTILIZED TO VERIFY OR CALCULATE THE RELATIONSHIPS 
POF OTHER PERIPHERAL FUNCTIONS, 

' 

JTHE PACKAGE RETURNS [O THE CALL INSTRUCTION WITH 
TITHE CONTENTS OF ACi® 70 A CALIBRATION COUNT 

ITHAT MAY BE INCREMENTED TO QVERFLOW IN 100 MILLI 
PSECONDS BY THE FOLLOWING DELAY LOOP, 

#TYPE13 MOV 0,0 


’ INC 6,6,S2C BSKPRBNOT OVERFLOW 
' JMP 4,3 pEXIT LOOP 

’ ] PANY FLAVOR 10 SKP 
; JmP TYPEL 


iy 

JTHE CONTENTS OF AC2 wILL CUNTAIN A SIMILAR 168 MS 
PITERATION COUNT BUT FOR THE FOLLOWING LOOPS 
ITYPE23 NIO 4 


U OLA 1,-0EV IGET DEVICE STATUS 

’ AND® 271,578 PANY STATUS COMPARE 

! JMP i904 PEXPECTEO STATUS EXIT 
} InC 0,8,S2R ¥SKP OUT ON LOOP OFLOW 
’ JMP TYPE2 


’ 

ITHE VALUES RETURNED MAY BE ARITHMETICALLY 
PPROCESSED (MULTIPLIED/OIVIDEU) FOR LONGER OR 
PSHORTER DELAYS AS LONG AS THE STANDARD LOOPS 
HLISTED ABOVE ARE UTILIZED, 

’ 

HIY IS RECOMMENDED THAT ALL TIMING FUNCTIONS 
1BE PERFORMED WITHIN YHE SAME GENERAL AREA OF 
IMEMORY AS THIS TIMING PACKAGE, 





a 8093 


G1 
02 
rh) 
a4 
85 
06 
a7 
08 
o9 
10 
44 
12 
13 
14 
1S 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
3e 
31 
32 
338 
34 
35 
36 


86420 
06421 
66422 
06423 
06424 
B6425 
06426 
06427 
06436 
26431 
06432 
@6433 
06434 
@6435 


06436 
86437 


eMAIN 


654557 
063514 
008436 
O60114 
B655i4 
088403 
069614 
OGG411 
062677 
162528 
004473 
63114 
063514 
062542 


@24542 
601408 


U 
PINITIALLY, THE TIMER PACKAGE ATTEMPTS TO 
IDETERMINE IF THE COMPUTER HAS A REAL TIME CLOCK 


SAVAILABLE, THE ITERATION COUNTS ARE DEVELOPEU SIMPLY 


pByY SYNCING WITH THE CLOCK ANDO COUNTING 
ITHE #OF LOOP ITERATIONS AT 16 HZ, 
' 


HIF, MOWEVER THERE IS NO REAL TIME CLOCK THE MEAN 


PTYTME BASE OF THE LOOPS MUST BE CALCULATED, THIS 
HIS PERFORMED BY COUNTING THE WOF TIMES THE 
YSTANOARD LOOPS ARE ITERATED FOR ONE OUTPUT 
HCHARACTER TO OEVICE "TTO" AND REQUESTING THE 
HBAUD RATE OF OEVICE TrO BE TYPED IN BY Tre 
ITEST OPERATOR, 

U 

PTIMES STA 3,SVTIME 


SKPBZ RTC HTEST FOR CAS/RTC 
JMP SCORE HCAS HTC NONEXES, 
NIOS RTC #TURN CLOCK ON 
SKPBZ RTC BUSY #43 ITS RTC 
JmP .e3 

SKPON RTC WQONE 8¢@ NO RIC 
JMP SCORE HAND DEV TTO IS USED 
Tors 

SUBZL 8,2 9810 WZ FOR RTC 
JSR TYME 

DOAS €,RTC PPASSED TO "TYME®" 
SKPBZ RTC HFOR EXECUTION 


JMP @SVTIME PAC AND ACQ@SLOOP COUNTS 


1THE FOLLOWING SUBROUTINE I8 TO RETAIN COMPATABILITY 
PWITH THE OLD PROCESSOR IDENTIFICATION AND TIMING 


PPACKAGE TO RETRIEVE THE LOOP COUNT FOR 
THE DIA,B8 UR C LOOP TYPE 2 
e301t «LDA 1,NUCAL 

IMP 8,3 


a BO94 


a. 
2 
a3 
a4 
a> 
@6 
a7 
a6 
9 
18 
1 
t2 
13 
14 
15 
16 
17 
io 
19 
26 
21 
22 
23 
24 
25 
26 
27 
26 
29 
38 
st 
32 
33 
34 
35 
36 
37 
38 
39 
46 
43 
42 


06448 
00441 
06442 
86443 
06444 
06445 
06446 


06447 
66450 
06451 
06452 


06455 
06454 
06455 
06456 
86457 
86460 
06461 
06462 
06465 
66464 


06465 
06466 
06467 
06470 


06471 
06472 
664795 
06474 


MAIN 


062677 
182482 
0844603 
w61iii 
063511 
006553 
086610 


286538 
660775 
644530 
830535 


151408 
024521 
1824ue 
406526 
101004 
1254288 
620528 
044517 
151400 
185808 


102408 
e¥o5sis 
648517 
044515 


658516 
606512 
638502 
044584 


U 
ITHERE 18 NO RTCeUTILIZE DEVICE TTO AND ASk FOR 
PSAUD RATE INPUT FROM OPERATOR 


SCORE: IORST 
Sus 4,2 
JSR TYMe 
OuaS &8,TTOU 
SKP6Z TTO 
SCORKAS JSR @TUMBLER 
SESOUT 


PACOBNULL CHARACTER 


HPASSED TO TYME 

PFOR EXECUTION 

yOUT TEXT 

PASKING FOR BAUD RATE 


1THE FOLLOWING SERIES OF INSTRUCTIONS WILL 
ICALCULATE THE ITERATION COOUNT FOR 

Hi BIT OF TTO OUTPUT AFTER RETRIEVING 

PTHE CONSOLE BAUD RATE FRUM THE 

FTEST OPERATOR@=@REGUIRES SUBROUTINE TINO 


JSR @KEYS 
JmP SCORA 
STA 1-L0CK 
LDA 2,5,35D! 


HINPUT ERROR 
HSAVE BAUD RATE 
1e 


PROUTINE ASSUMES AN 11 BIT CHARACTER 


InC 2,2 

LOA 1,OROINAL 
SUS 0,2 

JSR @KEYSe2 
MOV @,¥,$82ZR 
Inc 1,1 

LOA @,L0CK 
STA 1,L0CK 
MOV 1,2 

MOV @,1 


PASSUME 11 BITS 
sCOUNT FOR FULL CHAK 


HCHAR TIME/@BITS 

yIF ANY REM, 

pFUDGE BIT COUNT 
pSAVE ITR COUNT 1 BIT 


paCi = BAUD RATE 


yBAUD RATE TIMES COUNT FOR 1 BIT 
PWILL EQUAL ITERATION COUNT FOR { SECOND 


Sus 8,2 
JSR @KEYSe1{ 
STA G,«N 
STA 1,K8 


PMUL ACYoace 
#SAVE OCOUBLE LENGTH 
RESULT 


Hi SECOND DIVIDED BY 1@ & 186 MILLISECONDS 


LWA 2,8,3D1 
JSR OKEYS#2 
LOA 2,ORDINAL 
STA {,OROINAL 


#10 


#COUNT FOR 1 CHAR 
FOROTNAL S100 MS TYPE i 


CONTINUE CALCULATIONS NEXT PAGE 
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84 
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Q7 
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ie 
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té 
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17 
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2k 
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66476 
06477 
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06903 
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06597 
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644495 
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624452 
ee2ass 


’ 
$1 SECOND COUNT/! CHAR COUNT s w CHAR'S PER SEC 
THIS CALCULATION IS YSED TO EXPAND TRE TyPE 2 COUNT 
LOA @,KN 
LOA 1,KS $1 SEC, RESTORED 
JSR @KEYSe2 POIVIDE BY CHAR, 
STA 1,KS te CHAR, 4 SEC 
PCALC RELATIONSHIP OF REM, TO 1 CHAR TO FILL SECOND 
MOVZL 2,1 
MUV @,2,3NR 
INC 2,2 
Sus 8,4 
JSR OKEYSO2 pUIVIDE REM INTO CHAR 
PACIBFUOGE FACTOR 1 RELEATIONSHIP OF CHAR TO TOTAL 1 SEC 
PFINISH CALCULATIONS ON LOOP TYPE 1 708 {SECOND 


MOV 1,2 sFUDGE FACTOR 

LOA 4,NUCAL PINTO CHARACTER TIME 
MOVZL Lot 

Sus 8,2 OWILL @ 

JSR OKEYSe2 yPORTION OF Crak 

MOV 1,0 #70 COMPLETE 1 SECOND 
LOA 1,NUCAL Hi CHAR, TYPE 2 LOOP 
LDA 2,K5 pe CHARS IN 4 SEC 


JSR @KEYSe} }e PORTION OF CHAR 
TOUOUBLE LENGTH ACU, ACi#1 SECOND FOR TYPE 2 LOOP 
LUA 2,858,301 tOIVIDE BY 18 FOR 168 MS 
JSR @RKEYSO2 
STA Y,NUCAL 
MOV 1,2 
LDA 1,ORDINAL 
IMP OSVTIME 


paC2ei1@emMS LOOP] 
yACL BL@AMS LOOP 4} 
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06927 
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06963 
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044406 
653406 
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' 
PTHE FOLLOWING SUBROUTINE DETERMINES THE ITERATION 
HCOUNTS FOR THE DEVICE SPECIFIED BY THE INSTRUCTIONS 
PFOLLOWING THE JSm CALL TO TYME 
POOAS O,RTC OR OUAS @,TTO 
HSKPBZ RTC OR SKPBZ TTO 
' 
TYMES LOA 1,1 
STA 4,RVTMP 
LOA 1,ENTYM 


HSAVE INTR, LINK 


STA 1,1 pFOR LOOP 2 INTR, 

LDA 1,8,3 IGET OO0AS 

STA 1,TIMA 

STA 1,71MB 

STA 4,72MC PFOR EXECUTE 

LOA 1lgl,d GET SKPBZ 

STA {,TIMAe) 

STA 1,Timseag FOR EXECUTE 

SUB 2,2 

Sue i,i CLR CTRS 
TIMAS DOAS B,RTC OR TTO 

SKPBZ RTC 

JmP el PWAIT FOR DONE 

COM 1,1,52R yAND 2ND DONE 

JMP YIMA PTHEN START COUNTING 
TIMBS DUAS B,RTC THE THIRD DONE 
THE FOLLOWING COMPRISES LOUP TYPE 3} 

MOV 8,9 

INC 1,1,5NR PHATCH FOR OFLOW 

JMP ,e3 

SKPBZ RYC 

JUMP TIMBed 
HLOOP TYPE 2 1S COUNTED UNTIL PI FROM DEVICE 
TimCs DOAS ¥,RTC 

INTEN 


PTHE FOLLOWING INSTK, COMPRISE THE LOOP TYPE 2 
NIO @ #FANU IT ITERATES UNTIL 
VIA 8,6 PINTERRUPTED BY PI 
ADC @,8,5NR 


HALT yO ILL INSTR, 
INC 2,2,82ZR #LQUP CTR 
JmP TIMCe2 


HALT POEVICE OR PI FAILED 
ENTYME ,¢3 1TO HERE WHEN PI 

STA 1,ORDINAL SAVE LOOP 4 

STA 2,NUCAL FAN LOOP 2 

LDA @,RVTMP ® 

STA O,1 PRESTORE INTR, LINK 

JMP 2,3 7RETURN TO CALL 
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eh OC 1,001 
HYYPE @ FOR CARTRIDGE 
eTXTE J TYPE @ FOR CARTRIDGE; 


’ 1 FOR 3@ SURFACE DISK PACK 
eTXTE J £1 FOR 48 SURFACE DISK PACK] 


’ 2 FOR 2@ SURFACE DISK PACK 
eTXTE § 2 FOR 20 SURFACE DISK PACK] 
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ABSTRACT 


THE MOVING HEAD DISK RELIABILITY PROGRAM IS A MAINTENANCE 
PROGRAM DESIGNED TO EXERCISE AND TEST THE 4046 DISK CONTROLLER 
AND 1-4 OISK DRIVES. THE DISK DRIVES MAY BE SHARED BETWEEN 
TWO- COMPUTERS IN WHICH CASE THIS PROGRAM MAY BE RUNNING 

IN EACH COMPUTER, 
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02 : MOVING HEAD DISK RELIABILITY PROGRAM 
03 

0a jawnawne AUTORUN AUTO=LOAD MODIFIED 4/7/72 

05 

06 tle ABSTRACT 

07 

08 : THE MOVING HEAD DISK RELIABILITY PROGRAM 

09 : IS A MAINTENANCE PROGRAM DESIGNED TO 

10 : EXERCISE AND TEST THE 4046 DISK CONTROLLER 

11 } AND 1e4 DISK DRIVES, THE DISK DRIVES MAY BE 
12 : SHARED BETWEEN TWO COMPUTERS IN WHICH CASE 

13 ; THIS PROGRAM MAY BE RUNNING IN EACH COMPUTER, 
14 - 

15 : ~ NOTE 

16 H kkeK 

17 ' ONE COMPUTER KUNNING RELIABILITY 

18 : TEST (SA 501), THE OTHER (SA 50a) 

19 : ONLYS1! 

20 

21 : THE CONTROL CAN BE DEVICE 33 OR 73. 

22 

23 12. MACHINE REQUIREMENTS 

24 

25 ' NOVA(EXCEPT MICRO)OR ECLIPSE FAMILY CENTRAL PROCESSOR 
26 : 4K READ/WRITE MEMORY 

27 : TELETYPE 

28 : 4046 DISK CONTROL 

29 Hy 4047 OR 4048 CONTROL ADAPTER 

30 ' 1-4 MOVING HEAD DISK ORIVES 

31 

32 13. OPERATING PROCEDURES 

33 

34 : A. VERIFY ORIVE (DRIVES) ARE READY ON@LINE 

35 ; B, LOAD PROGRAM USING BINARY LOADER OR DIAGNOSTIC 
36 H OPERATING SYSTEM, 

37 : C. RESET AND START AT ONE OF THE 

38 } ADDRESSES SHOWN BELOW IF LOADED WITH BINARY LOADER. 
39 : D. IF LOADED BY DIAGNOSTIC OPERATING SYSTEM, 
40 ; RELIABILITY(BELOW) WILL BE STARTED, 

rey 

42 

43 : STARTING ADDRESS - 
44 ; 2 RUN ALL 

4s ; & CHANGE DISK CONTROL ADORESS 

46 : 200 RELIABILITY TEST, ALL CYLINDERS(DTOS START) 
47 : 501 RELIABILITY TEST, EVEN CYLINDERS 

48 : 502 RELIABILITY TEST, ODD CYLINDERS 

49 ' 503 DISK ADDRESS TEST 

50 : 504 CORE DUMP ROUTINE 

51 ; 505 COMMAND STRING INTERPRETER 

52 : 506 ONES TEST 

53 ' 507 ZEROS TEST 

54 3 510 110110110 TEST 

55 : 511 FLOATING ONE TEST 

56 ' 512 FLOATING ZERO TEST 

57 } 513 RUN ALL 

58 } 514 SEEK EXERCISER 
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—. ERRORS = ERROR STATUS IS PRINTED 
WHENEVER ENCOUNTERED. WHEN DATA ERRORS 
ARE FOUND ONLY THREE ARE PRINTED PER 
ENCOUNTER, (SEE PARAGRAPH 5S) 


SWITCH SETTINGS 

Swiz0 FROM ERROR, DO SCOPE LOOP 

SW1=1 FROM ERROR, GO TO NEXT TEST 

SW2=1 INHIBIT TTY OUTPUT 

SwSs1 OUTPUT TO LPT 

SW6=1 HALT AFTER ERROR 

SW7=1 INHIBIT CHECK WORD AND DATA ERROR MESSAGES 
SW851 BREAK TO ALLOW DISK INTERCHANGE 

SW9=1 FOR READ ONLY MODE 


F. STATISTICS = TYPE ANY KEY DURING 
RANDOM TESTING TO GET A REPORT OF THE 
NUMBER OF WORDS WRITTEN AND READ, PLUS 
THE NUMBER OF ERRORS. 

wake NOTE tun 

THE PROGRAM WILL ACCOUNT FOR UP TO A MAX. 
OF 2%31 WORDS WRITTEN OR READ, SPECIAL 
TEST RUNS EXCEEDING THIS FACILITY WILL 
REQUIRE AN OPERATOR'S TEST LOG TO AUGMENT 
SOFTWARE ACCOUNTING. 


PROGRAM RUNTIME 


PROGRAM RUNTIMES ARE SUBSTANTIALLY REDUCED WITH 
MEMORIES OF 8K OR LARGER. RUNTIMES BELOW ARE FOR 
AN 8K CORE MEMORY, 


RUNTIME IS DEFINED AS TIME FROM 

START TO A "PASS" MESSAGE. TYPICAL 
RUNTIMES ARE LISTED AS FULLOWS: 

RUNALL (SA 2): APPROX, 27 MIN. 

(NOVA 800, CORE, & 2 SURFACE OISK) 
SEEKEXERCISER (SA 514) APPROX. 5 MIN. 
(NOVA 800, CORE, & 2@ SURFACE DISK) 


BAUD RATE 


READ, WRITE AND SEEK OPERATIONS ARE TIMED 

BY SPECIAL ROUTINES, WHEN THE PROGRAM I8 

FIRST STARTED, THE TIMING ROUTINE WILL TEST 

FOR THE PRESENCE OF A REAL TIME CLOCK (RTC) 

TO DERIVE TIMING FROM IT. IF NO RTC IS 

PRESENT, THE PROGRAM WILL TYPE "TTO BAUD 

RATE", THIS MESSAGE REFERS TO THE BAUD RATE 

OF THE CONSOLE TERMINAL (DEVICE 10 & 11). 

TYPE IN THE BAUD RATE. IF A TYPING ERROR OCCURS 
IN THE NUMBER STRING (BEFORE THE CARRIAGE RETURN), 
SIMPLY TYPE A NON@NUMERIC CHARACTER AND 

THE REQUEST FOR THE BAUD RATE WILL BE 

REPEATED. IF THE CARRIAGE RETURN HAS BEEN 

GIVEN AFTER A TYPING ERROR, RELOAD THE PROGRAM, 


PROGRAM DESCRIPTION 
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A, RELIABILITY TEST (SA 200) 

A RANDOM NUMBER GENERATOR IS USED TO SELECT A 
DISK DRIVE,CYLINDER,HEAD,BEGINNING SECTOR, 
AND NUMBER OF CONSECUTIVE SECTORS. RANDOM 
DATA IS THEN GENERATED, WRITTEN, AND READ. 
THE SEQUENCE IS REPEATED INDEFINITELY. 


B. RELIABILITY TEST (SA 501) 

SAME AS A, EXCEPT THAT ONLY EVEN 
NUMBERED CYLINDERS ARE USED. THIS 
ALLOWS A TWO COMPUTER SYSTEM TO RUN 
SIMULTANEOUS RELIABILITY TESTS, 


C. RELIABILITY TEST (SA 502) 
SAME AS 8, ONLY FOR OOD NUMBERED 
CYLINDERS, 


D. DISK ADDRESS TEST (SA 503) 

RANDOM DATA IS FIRST WRITTEN THEN READ 

FROM ALL SECTORS ON EACH READY OISK. THIS 
INSURES THAT ALL DISK PACK SURFACES ARE 
USEABLE AND THAT THE DISK PACK IS FORMATTED 
PROPERLY. 


F. COMMAND STRING INTERPRETER (SA 505) 
AS A TROUBLE SHOOTING AID THE SERVICE 
ENGINEER MAY TYPE IN HIS OWN TEST LOOP, 
AFTER STARTING AT $05, THREE ARGUMENTS 
MUST BE ENTERED IN RESPONSE TO THREE 
PROGRAM QUESTIONS; "UNIT", "DATA", AND 
"COMMAND STRING", 


fs UNIT: TYPE UNIT # OR CARRIAGE TO 
USE THE PREVIOUS ENTRY 

ae DATA RANSRANDOM 
ALOZALL ONES 
ALZ=ALL ZEROS - 


PATS110110 PATTERN 
FLOSFLOATING ONE PATTERN 
FLZSFLOATING ZERO PATTERN 


ALTERNATIVELY ENTER A STRING OF 
OCTAL 16 BIT WORDS TO BE 

USED AS DATA. THE WORDS 
ENTERED ARE USED REPEATEDLY 

TO MAKE UP A SECTOR BLOCK, 

TYPE CARRIAGE TO USE THE 
PREVIOUS ENTRY, 


Itl. COMMAND STRING? 


OPTIONS 1. READ HEAD, SECTOR, #SECTORS 


2. WRITE SAME 
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3. SEEK CYLINDER 

4. RECALIBRATE 

5S. LOOP (GO TO BEGINNING) 

6. DELAY (N) 12,5MS INCREMENTS 
7. TYPE CARRIAGE TO USE THE 


PREVIOUS COMMAND STRING. 


NOTE THAT EITHER SPACES OR A COMMA 

MAY BE USED AS AN ARGUMENT DELIMITER. 
EACH RESPONSE IS TERMINATED BY 

TYPING CARRIAGE RETURN. IF MORE 

ROOM IS NEEOEO ON A LINE, TYPE 

LINE FEED TO SPACE TO THE NEXT LINE. 

THE WORD "SAME" USED WITH READ, OR WRITE, 
WILL CAUSE THE PREVIOUS DISK 

ADORESS PARAMETERS TO BE USED. 


THE FOLLOWING EXAMPLE WOULD CAUSE UNIT 

1 TO REPEATEDLY SEEK CYLINDER 

50, WRITE SECTORS 2 AND 3 WITH HEAD 5, 

THEN READ IT BACK AND CHECK, DATA IS SPECIFIED 
AS ALTERNATE WORDS OF ZEROS THEN ONES. 


UNIT? 1 
DATA? 0,177777 
COMMAND STRING? SEEK 50 WRITE 5,2,2 READ SAME LOOP 


G. ONES TEST (DATA = ALL 1°S) 

ZEROS TEST (DATA = ALL 0°S) 

110110 TEST (DATA = WORDS OF 1101101101101101) 

FLOATING ONE TEST (EACH SUCCESSIVE WORD 
CONTAINS ONE 1 BIT WHICH 1S MOVED 
RIGHT ONE BIT EACH WORD) 

FLOATING ZERO TEST (COMPLEMENT OF THE 
FLOATING 4 TEST) 


EACH OF THE ABOVE USE THE BASIC DISK ADDRESS 
TEST, SUBSTITUTING THE APPROPRIATE DATA. 

ANY OF THESE PATTERNS INCLUDING THE RANDOM 
DATA USED FOR THE DISK ADDRESS TEST MAY 

BE RUN IN THE "READ ONLY" MODE. THIS IS USEFUL 
FOR CHECKING THE INTERCHANGEABILITY OF DISK 
PACKS BETWEEN VARIOUS DISK DRIVES. 


TO GENERATE A DATA PATTERN START AT THE 
APPROPRIATE LOCATION AND SET SwW8 TO 1. 

WHEN THE ENTIRE PACK HAS BEEN WRITTEN AND 
READ THE TELETYPE PRINTS "INTERCHANGE DISK" 
AND THE PROGRAM HALTS, THIS PACK MAY NOW 

BE READ FROM OTHER DISK DRIVES IN THE READ 
ONLY MODE (SW921). 


15, ERROR REPORTING AND RECOVERY 


$ 
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ALL PHASES OF THE SOFTWARE WORK THROUGH 
4 MAIN SUBROUTINES DESCRIBED BELOW. EACH 
SUBROUTINE HAS A NORMAL RETURN (+3) AND 
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AN ERROR RETURN (#1). EACH SUBROUTINE WAITS FOR DISK 
COMPLETION WITH INTERRUPT ENABLED. A FAILURE 

TO DETECT INTERRUPT WITHIN 500MS (3 SEC FOR 
RECALIBRATE) RESULTS IN A "TIMEQUT" ERROR, 


RECALIBRATE = ANY UNUSUAL STATUS IS REPORTED 
IMMEDIATELY AND AN ERROR RETURN EXECUTED. 


SEEK = SFEK ERROR STATUS INCREMENTS SEEK 
ERROR COUNTER. ANY ERROR STATUS RESULTS 


IN STATUS PRINTOUT. 


WRITE = FOLLOWING "DONE" ON A WRITE, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW. ERROR 
RECOVERY PROCEDURE IS OUTLINED FOR EACH CASE. 

IF THE ERROR IS NOT PRESENT THE NEXT CHECK IS MADE, 


1. READ/WRITE DONE STATUS © IF NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN, 


2. MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
BIT,» SEEK ERROR, END CYLINDER, OR DATA LATE). 

IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 


3. ADDRESS ERROR 
3.1 FIRST TIME = INCREMENT ADDRESS ERROR COUNT 


ANO REPEAT THE WRITE. 

3,2 SECOND SUCCESSIVE FAILURE = INCREMENT 
. PERMANENT ADDRESS ERROR COUNT AND DO A 

ERROR RETURN. 


&, ENDING MEMORY AOCRESS = INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 5S. 


5. ENDING DISK ADDRESS - INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 6. 


6. NO FURTHER CHECKS 
6ei FATAL SWITCH ON = DO A ERROR RETURN. 
6.2 OTHERWISE = DO A NORMAL RETURN. 


READ = FOLLOWING "DONE" ON A READ, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW. ERROR 
RECOVERY PROCEDURE IS OUTLINED FOR EACH CASE. 


-IF THE ERROR IS NOT PRESENT THE NEXT CHECK IS MADE. 


1. READ/WRITE DONE STATUS © IF NONE-s INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN. 


2. MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
BIT, SEEK ERROR, END CYLINDER, OR DATA LATE). 

IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN. 
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3. ADDRESS ERROR 
3.1 FIRST TIME © INCREMENT ADDRESS ERROR COUNT 
AND REPEAT THE READ, 
3.2 SECOND SUCCESSIVE FAILURE = INCREMENT 
PERMANENT ADDRESS ERROR COUNT ANDO DO A 
ERROR RETURN. 


4. CHECK WORD ERROR : 

. 4.1 FIRST TIME = INCREMENT THE CHECK WORD 
ERROR COUNT AND SET THE RETRY FLAG. PRINT 
"CHECK WORD ERROR" AND GO TO S. 
4.2 SECOND SUCCESSIVE ERROR = INCREMENT THE 
PERMANENT CHECK WORD ERROR COUNTER AND SET 
THE FATAL FLAG. PRINT "CHECK WORD ERROR" 
AND GO TO S. 


5. OATA ERROR 
5.1 FIRST TIME = SET THE RETRY FLAG AND PRINT 
ERROR REPORT. 
5.1.1 CHECK WORD ERROR = DECREMENT THE 
CHECK WORD ERROR COUNTER AND INCREMENT 
THE CHECK WORD & DATA ERROR COUNTER, 
GO TO 6. 
5.1.2 NO CHECK WORD ERROR = INCREMENT 
THE DATA ERROR COUNTER AND GO TO 6. 
5.2 SECOND SUCCESSIVE ERROR = SET THE FATAL 
FLAG ANDO PRINT THE ERROR REPORT, 
5.2.1 CHECK WORD ERROR ~ DECREMENT 
THE PERMANENT CHECK WORD ERROR COUNTER 
AND INCREMENT THE PERMANENT CHECK WORD 
& DATA ERROR COUNTER. GO TO 6. 
5.2.2 NO CHECK WORD ERROR = INCREMENT 
THE PERMANENT DATA ERROR COUNTER, 
GO TO 6. 


6. ENDING MEMORY ADORESS = INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 7. 


7. ENDING DISK ADDRESS ~ INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 8. 


8. NO FURTHER CHECKS 
6.1 RETRY SWITCH ON = PRINT "TRY AGAIN" 
AND REPEAT THE TEST. 
8.2 FATAL SWITCH ON = DO A ERROR RETURN. 
8.3 NO SWITCHES ON © 00 A NORMAL RETURN. 
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C, ERRORS = ERROR STATUS IS PRINTED 
WHENEVER ENCOUNTERED, wHEN DATA ERRORS 
ARE FOUND ONLY THREE ARE PRINTED PER 
ENCOUNTER, (SEE PARAGRAPH 5) 


SwITCr SETTINGS 

Sw@2i 00 NOT HALT FOLLOWING ERROR 

Swist INHIBIT ERROR PRINTOUTS 

Sw2ei REPEAT CURRENT TEST (SCOPE LOOP) 

Swisi INHIBIT CHECK WORD AND DATA ERROR MESSAGES 
Sw4e{ BREAK TO ALLOW DISK INTERCHANGE 

SwSe1 FOR READ ONLY MODE, 


D. STATISTICS = TYPE ANY KEY OURING 
RANDOM TESTING 7O GET A REPORT OF THE 
NUMBER OF WORDS WRITTEN AND READ, PLUS 
THE NUMBER OF ERRORS, 

wwe NOTE weee 

THe PROGRAM WILL ACCOUNT FOR UP TO A MAX, 
OF 2431 WORDS WRITTEN OR READ, SPECIAL 
TEST RUNS EXCEEDING THIS FACILITY wIte 
REQUIRE AN OPERATOR'S TEST LOG TS AUGMENT 
SOFTWARE ACCOUNTING, 


PROLRAM RUNTIME 


PRUGRAM RUNTIMES ARE SUBSTANTIALLY REOUCEO wITH 
MEMORIES OF 8K OR LARGER, RUNTIMES BELOW ARE FOR 
AN 8K CORE MEMORY, 


RUNTIME IS DEFINED AS TIME FROM 

START TO A "PASS" MESSAGE, TYPICAL 
RUNTIMES ARE LISTED AS FOLLOWS? 

RUNALL (SA 2)3 APPROX, 27 MIN, 

(NOVA 878, CORE, & 2 SURFACE OISK) 
SCEKEXERCISER (SA 544)!t APPROX, 5S MIN, 
(NOVA 868, CORE, & 2 SURFACE DISK) 


BAULU RATE 


ReaD, WRITE AND SEEK OPERATIONS ARE TIMED 

BY SPECIAL ROUTINES, WHEN THE PROGRAM I$ 

FIRST STARTED, THE TIMING ROUTINE WILL TEST 

POR TRE PRESENCE OF A REAL TIME CLOCK CRYC) 

TO DERIVE TIMING FROM IT, IF NO RTC 1S 

PRESENT, THE PROGRAM WILL TYPE "TTO BAUD 

RATE", THIS MESSAGE REFERS TO THE BAUD RATE 

OF THe CONSOLE TERMINAL (COEVICE 10 & 11), 

TYPE IN THE BAUD RATE, IF A TYPING ERROR OCCURS 
IN Tree NUMBER STRING (BEFORE THE CARRIAGE RETURN), 
SIMPLY TYPE A NON@NUMERIC CHARACTER AND 

Tre REQUEST FOR THE SAUD RATE wWILy BE 

REPEATED. IF THE CARRIAGE RETURN WAS BEEN 

GIVEN AFTER A TYPING ERROR, RELOAD THE PROGRAM, 
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PROGRAM DESCRIPTION 


A, RELIABILITY TEST (S4 54a) 

A RANDOM NUMBER GENERATOR IS USED TO SELECT A 
DISK DRIVE, CYLINDER, HEAD, BEGINNING SECTOR, 
ANO NUMBER OF CONSECUTIVE SECTORS, RANDOM 
DATA IS THEN GENERATED, WRITTEN, AND READ, 
THE SEQUENCE I8 REPEATED INDEFINITELY: 


B, RELIABILITY TEST (SA Sai) 

SAME AS A, EXCEPT THAT ONLY EVEN 
NUMBERED CYLINDERS ARE USED, THIS 
ALLOWS A TWO COMPUTER SYSTEM YO RUN 
SIMULTANEOUS RELIABILITY TESTS, 


C, RELIABILITY TEST (SA $22) 
SAME AS By ONLY FOR OCD NUMBERED 
CYLINVERS, 


D, OISK ADDRESS TEST (8A 593) 

RANDOM DATA IS FIKST WRITTEN THEN READ 

FROM ALL SECTORS ON EACH READY DISK, YHIS 
INSURES THAT ALL DISK PACK SURFACES ARE 
USEABLE ANO THAT THE DISK PACK IS FORMATTED 
PROPERLY, 


{0805 ,MAIN 
Bi 
G2 
Qs 
4 
5 
a6 
@7 
06 
89 
16 
il 
ie 
is 
14 
15 
16 
{7 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
3@ 
34 
32 
35 
34 
35 
36 
37 
34 
39 
46 
41 
42 
cr) 


eo te Ne we we we we 


a 


~ ae i 


me te we we te ee ee te 


Se 





F, COMMAND STRING INTERPRETER (SA 5@5) 
AS A TROUBLE SHOOTING AID THE SERVICE 
ENGINEER MAY TYPE IN HIS OWN TEST (OOP, 
AFTER STARTING AT $85, THREE ARGUMENTS 
MUST BE ENTERED IN RESPONSE YO THREE 
PROGRAM QUESTIONS? "UNIT", "DATA", AND 
"COMMAND STRING", 


qT. UNITS TYPE UNIT w OR CARRIAGE 10 
USE THE PREVIOUS ENTRY 


Tl, DATAS RANSRANDOM 
ALOSALL ONES 
ALZSALL ZEROS 
PAT#11@13@ PATTERN 
PLOeFLOATING ONE PATTERN 
PLZSFLOATING ZERO PATTERN 


ALTERNATIVELY ENTER A STRING OF 
OCTAL 16 BIT wORDS TO BE 

USED AS DATA, THE WORDS 
ENTERED ARE USED REPEATEDLY 

TO MAKE UP & SECTOR BLOCK, 

TYPE CARRIAGE TO YSE THE 
PREVIOUS ENTRY, 


Ill, COMMAND STRING! 
OPTIONS 1, READ HEAD, SECTOR, #SECTORS 

2. WRITE SAME 

3, SEEK CYLINOER 

4, RECALIBRATE 

5, LOOP (GO TO BEGINNING) 

6. DELAY (N) 12,.5MS8 YNCREMENTS 

7. TYPE CARRIAGE TO USE THE 


PREVIOUS COMMAND STRING, 


NOTE THAT EITHER SPACES OR A COMMA 

MAY BE USED AS AN ARGUMENT DELIMITER, 
EACH RESPONSE 18 TERMINATED BY 

TYPING CARRIAGE RETURN, IF MORE 

ROOM 18 NEEDED ON A LINE, TYPE 

LINE FEED TO SPACE TO THE NEXT LINE, 

THE WORD "SAME" USED WITH READ, OR WRITE, 
WILL CauSe THE PREVIOUS DISK 

ADDRESS PARAMETERS TO BE USED, 
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THE FOLLOWING EXAMPLE WOULD CAUSE UNIT 

1 TO REPEATEDLY SEEK CYLINDER 

Sa, WRITE SECTORS 2 AND 3 WITH HEAD 5, 

THEN READ IY BACK AND CHECK, OATA IS SPECIFIED 
AS ALTERNATE WORDS OF ZEROS THEN ONES, 


UNIT? 4 
DATA! 8,177777 
COMMAND STRING: SEEK SQ WRITE §,2,2 READ SAME LOOP 


G, ONES TEST (OATA ® ALL $'8) 

ZEROS TEST (DATA & ALL @!S) 

110118 TEST (DATA # WORDS OF 1481103801101101) 

FLOATING ONE TEST (EACH SUCCESSIVE WORD 
CONTAINS ONE 1 BIT WHICH Is MOVED 
RIGHT ONE BIT EACH wORD) 

FLOATING ZERO TEST (COMPLEMENT OF THE 
FLOATING { TEST) 


EACH OF THE ABOVE USE THE BASIC DISK ADURESS 
TEST, SUBSTITUTING THE APPROPRIATE DATA, 

ANY OF THESE PATTERNS INCLUDING THE RANDOM 
DATA USED FOR THE DISK ADDRESS TEST MAY 

BE RUN IN THE "READ ONLY" MODE, THIS IS USEFUL 
FOR CHECKING THE INTERCHANGEABILITY OF DOK 
PACKS BETWEEN VARIOUS OISK ORIVES, 


TO GENERATE A DATA PATTERN START AY THE 
APPROPRIATE LOCATION AND SET SW4 TO 1, 

WREN THE ENTIRE PACK HAS SEEN WRITTEN AND 
READ THE TELETYPE PRINTS "INTERCHANGE DISK® 
AND THE PROGRAM HALTS, THIS PACK MAY NOW 

BE READ FROM OTHER DISK DRIVES IN THE READ 
ONLY MODE (SwW5s1), 
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ERRUR REPORTING AND RECOVERY 


ALL PHASES OF THE SOFTWARE wORK THROUGH 

4 MAIN SUBROUTINES DESCRIBED BELOW, EACH 

SUBKQUTINE HAS A NORMAL RETURN (#3) ANO 

AN ERKOR RETURN (@4)0 EACH SUBROUTINE WAITS FOR DI8K 
COMPLETION WITH INTERRUPT ENABLED, A FAILURE 

TG DETECT INTERRUPT WITHIN seems (3 SEC FOR 
RECALIBRATE) RESULTS IN A "TTMEOUT" ERROR, 


RECALIGRATE = ANY UNUSUAL STATUS IS REPORTED 
IMMEDIATELY ANO AN ERROR RETURN EXECUTED. 


SEEK © SEEK ERROR STATUS INCREMENTS SEEK 
ERRUR COUNTER, ANY ERROR STATUS RESULTS 
IN STATUS PRINTOUTS 


WRITE © FOLLOWING WQONE" ON A WRITES ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEDURE 1S OUTLINED FOR EACH Case, 

IF THE ERROR IS NOT PRESENT THE NEXT GHECK 18 MADE. 


de READ/WRITE DONE STATUS @= IF NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND OO AN ERROR RETURN, 


2. MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
BIT, SEEK ERROR, END CYLINDER, OR DATA LATE)» 

IF ANY ERRGR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL gTaTUuS, AND DO AN ERROR RETURN, 
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ADORESS ERROR 
3.1 FIRST TIME = INCREMENT ADURESS ERROR COUNT 
AND REPEAT THE WRITE, 
3,2 SECOND SUCCESSIVE FAILURE » INCREMENT 
DERMANENT ADDRESS ERROR COUNT AND DO A 
ERROR RETURN, 


ENOING MEMORY AQDRESS # INCREMENT THE MISC ERROR 


COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
ANY GO TO 5. 


Se 


ENDING DISK ADDRESS + INCREMENT THE MISC ERROR 


COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 6, 


6. 


NO FURTHER CHECKS 
6,2 FATAL SwITCH ON » DO A ERROR RETURN, 
6,2 OTHERWISE » DO A NORMAL RETURN, 
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@4 @1 
a2 ’ READ » FOLLOWING "DONE" ON A READ, ERRORS ARE 02 ’ 5. OATA ERROR 
as U CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR es , 5,1 FIRST TIME » SET THE RETRY FLAG AND PRINT 
a4 ’ RECOVERY PROCEDURE IS OUTLINED FOR EACH CASE, a4 ’ ERROR REPORT, 
85 , IF THE ERROR I8 NOT PRESENT THE NEXT CHECK IS MADE, es ’ Seiei CHECK WORD ERROR = DECREMENT THE 
6 86 ’ CHECK WORD ERROR COUNTER AND INCREMENT 
7 ’ 4. READ/WRITE DONE STATUS = IF NONE, INCREMENT THE a7 ’ THE CHECK WORD & DATA ERROR COUNTER, 
@6 ' MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 8 ’ GO TO 6, 
9 ’ AND DO AN ERROR RETURN, a9 ’ 5.1.2 NO CHECK WORD ERROR ~ INCREMENT 
10 18 ’ THE OATA ERROR COUNTER AND GO TO 6, 
a4 U 2e MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING {1 ’ 5,2 SECONO SUCCESSIVE ERROR » SEY THE PATAL 
{2 U BIT, SEEK ERROR, END CYLINDER, OR DATA LATE), 12 ’ FLAG AND PRINT THE ERROR REPORT, 
13 J IF ANY ERROR YNCREMENT THE MISC ERROR COUNT, 13 ’ 5,2,1 CHECK WORD ERROR = DECREMENT 
i4 ’ PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 14 ’ THE PERMANENT CHECK WORD ERROR COUNTER 
15 15 ' AND INCREMENT THE PERMANENT CHECK WORD 
16 ’ 3, AUVORESS ERROR 16 ’ & DATA ERROR COUNTER, GO TO 6, 
17 U 3.1 FIRST TIME = INCREMENT ADDRESS ERROR COUNT 17 , 5.2.2 NO CHECK WORD ERROR = INCREMENT 
18 ' AND REPEAT THE READ, 1a ; THE PERMANENT DATA ERROR COUNTER, 
19 U 3.2 SECOND SUCCESSIVE FAILURE @ INCREMENT 19 ’ GO TO 6, 
20 U PERMANENT ADORESS ERROR COUNT AND DO A 22 
21 i ERROR RETURN, 21 ’ 6. ENDING MEMORY ADORESS © INCREMENT THE MISC ERROR 
22 22 ’ COUNTER, PRINT THE ERRUR MESSAGE, SET THE FATAL FLAG, 
23 U 4, CHECK WORD ERROR 25 U AND GO TO 7, 
24 } 4.1 FIRST TIME © INCREMENT THE CHECK WORD 24 
25 U ERROR COUNT ANO SET THE RETRY FLAG, PRINT 25 , 7. ENDING DISK AUVDRESS «+ INCREMENT THE MISC ERROR 
26 ’ "CHECK WORD ERROR" AND GO TO 5S, 26 ’ COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
27 , 4,2 SECOND SUCCESSIVE ERROR e INCREMENT THE 27 ’ AND GO TO 8, 
28 ’ PERMANENT CHECK WORD ERROR COUNTER ANDO SET 26 
29 U THE FATAL FLAG, PRINT "CHECK WORD ERROR" 29 U 8, NO FURYHER CHECKS 
3@ ' AnD GO TO 5, 38 ’ 8.1 RETRY SwITCH ON © PRINT "TRY AGAIN" 

31 ! AND REPEAT THE TEST, 

32 U 8,2 FATAL SWITCH ON = DO A ERROR RETURN, 

33 ’ 8.3 NO SWITCHES ON @ DO A NORMAL RETURN, 
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VSET ADDR TO 3S 
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PFROM CYLINOERS 

970 CYLINDERS 

HTOTAL SEEKS 

PTOTAL SEEK ERRORS 
PwORDS WRITTEN 

PWORODS READ 

HCRHECK WORD ERRORS 
HPERM CHECK WORD ERRORS 
PADORESS ERRORS 
PPERMANENT ADDR ERR 
PDATA ERRORS 

9CHK wD AND DATA ERROR 
HPERM CrK WO AND DATA ERROR 
PPERMANENT DATA ERRORS 
yMISC ERRORS 
PSEEK/RECAL TIMEOUTS, 
PREAD/WRITE TIMEOUTS, 


PREADER SwIiTCr 


YCMD STRING INTRP FLAG 


PCURRENT DISK DRIVE UNIT 
PAVAILABLE UNITS 


PRUN ALL MODE FLAG 

#READ ONLY FLAG 

PRETRY TEST FLAG 

PFATAL TEST RESULT FLAG 

P@ORECAL, LSSEEK, 2SREAD, SSWRITE 
HLOOP ON TEST SWITCH 

PSEEK SwiTCH 


PLAST HEAD#S3 2,18,0R 28, 
FEAST SECTORei7 6 OR 12, 
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STYMES PTIME 


C2e3.! 2635, 
C2i23 212 
C2;83 215 
C3773 377 


Cigeat 1882 
C4KBUNTUNGS 
C7480! 7400 
CLOKBUNTDONG2 
CSP3 77662 
CSPi? 177677 


CwrO! 60033 
CSp3t 77666 


TICaLrIs: Calis 


22QUMS? 268, 


e2KMS3) 2800, 
e4KMS3) 186808 


DAXRTNE @ 


16014 


BY 
G2 
es 
a4 
5 
66 
87 
@8 
9 
T) 
it 
12 
is 
14 
i5 


00246 
08241 
08242 
Bea24s 
OG244 
@a2a5 
68246 
68247 
08259 
oe25i 
68252 
oa258 
08254 
00255 
¥a256 
08257 
oa260 
eo26: 
o0262 
oe263 
ee264 
0@265 
00266 
ab267 
e027¢e 
08271 
80272 
20273 
a0274 
e@275 
80276 
“e277 
08308 
aesa: 


> OBSGe 


CURR 
@a3ea4 
60385 
20506 
08587 
6A312 
@es11 
00312 


MAIN 


0OdNvd 
004702 
O208RB 
BBBRRA 
680808 
O8C208 
280008 
125456 
086808 
660208 
O87812 
088008 
888008 
082800 
eeeeeo 
2072030 
O0a808 
015414 
@15574 
006767 
007007 
220808 
828008 
607010 
@142000 
688006 
Geea0e 
ebeeue 
O8eae8 
oeeeues 
e8ee0e 
eoeees 
0a8008 
28003s 
6246808 
200508 
eaeaus 
080408 
087480 
007468 
802008 
820802 
808808 


OMEGA? 
IXLAys 
ISTATS 
SAv@?t 
Savi 
Savat 
SAV33 
RANDOM 
RELRANS 
CNyOC3 
LAST? 
LINCY: 
SEc! 
SC: 
HMOs 
CAs 
TERM 
UBP3 
CSBP! 
VARST3 
VARED! 
VARSPI 
VARPTS 
BUFF 
CMENDS 
SMAX3 
EVOON! 
AECNTS 
CWCNTS 
DACNTS 
RWRET! 
DADAT: 
CFLGE: 
COSKs 
csc: 
Firsts 
UMSK3 
HMSKE 
SMSK3 
LMSK3 
sci 
RLUP? 
ALLRETS 


NIOC 6 
PRGEND 

@ 

@ 

Q 

8 

PRGEND 

@ 

UBUF FeUBUFF 
CBUPFeCBUPF 
VARe{ 
VARL5, 

8 

@ 

PRGEND 
14490 


aOQOTSEUSseEaaes aoa 
c.*) om C 
a (>) 

Mm 

Zz 


748 
7488 
] 
Q 
@ 





PSTATUS AT INTERRUPT 
HSAVE ACO,1,2 


SCURRENT RANDOM NUMBER 


PPROGRAM END 

YBYTE POINYER 

STARTING SECTOR (POS) 
PSECTOR COUNT 

JHEAD 

IBEGINNING ADDRESS (VARIABLE) 
THOLOS TERMINATOR FLAG 

SUNIT BYTE POINTER 

JCMD STRING BYTE POINTER 
TVARIABLE DATA, SRT ADDRa} 

U fe " TABLE END 

’ " " END MARKER 
VAR POINTER 

POATA BUFFER SRT ADDR (CONSTANT) 
yTOP OF USABLE CORE 

ymax SECTOR COUNT 

ICYLINOERS, (@)EVEN, (18)000 


TOATA ADDRESS (DISK ADDR TEST) 
yEND CYL FLAG 


FUNIT MASK 1408 OR 488 OR @ 

THEAD MASK 7482 OR 1748@ OR 488 
ISECTOR MASK 7488 OR 3488 

§# SECTORS MASK 7488 OR 3408 

@ SECTOR TRANSFERRED ON CHK WO ERR 
IREPEAT TEST ADORESS 








12@15 @ MAIN 


@ 
2 
@3 
a4 
@5 
@6 
7 
8 
89 
12 
44 
12 
ts 
14 
15 
16 
17 
18 
19 
20 
2. 
22 
23 
24 
25 
26 
27 
28 
29 
38 
$1 
32 
33 
34 
$5 
36 
v7 
36 
39 
40 
41 
42 
43 
a4 
45 
46 
47 
48 
49 
53 
51 
52 
53 
34 


OOS13 
OG514 
08515 
O6516 
60317 
O0520 
00323 
68322 
08523 
88326 
06325 
68326 
80327 
68330 
OBSS4 
OOS32 
685353 
OB534 
08335 
0835356 
00397 
06340 
CURES 
08542 
683435 
08344 
00345 
02346 
60347 
60550 
0a551 
08552 
08353 
00554 
00355 
00356 
60557 
603560 
68563 
08362 
00563 
08364 
08565 
68366 
08567 
00578 
OGS74 
08572 
08573 
00374 
08375 


eeee15 
680852 
OOLS71 
664731 
085557 
885563 
0064248 
044234 
2042353 
084205 
084345 
688008 
605862 
685617 
005867 
005247 
685246 
CO53715 
ae114s 
6831155 
QO50i1 
020672 
000717 
081052 
005442 
663526 
803165 
082723 
009462 
063147 
#83123 
605H45 
o61413 
065167 
083657 
002274 
O82616 
202614 
oO4a5% 
005465 
001427 
000754 
B00664 
880888 
000008 
080102 
a00eee 
123456 
es2ee8 
684964 
083673 


oh 3uSs 
ICyLFs 
TALL? 
1O,ys 
TSaC? 
TSTACs 
IPDEC! 
TTaCis 
TVzik 
IMESS! 
ICRLF3: 
ISRH3 
IGATM3 
THSS! 
TINP? 
IGENS 
ICHK3 
TVAR3 
ICLRB? 
ISET: 
TSm3 
Tessa: 
INTLS 
WAT. 
1.0603 
TROATS 
IWOATS 
IGcs: 
IR1 
Twas 
183 
TRC: 
IPst 
THEO! 
ICSws 
ISCNTS 
ICst3 
Tausts 
Iwyi 
TRANS 
7.6901 
TSu! 
IRCAL? 
CYUNK? 
NO, 685 
Ciee: 
SVLMDE 
e RANE 
C20283 
TACAL! 
TFNGK3 


is, 
CYLF 
ALL 
OLTYM 
Sac 
S$Tac 
PUEC 
POCcy 
ZOCcT 
MESS 
CRLF 
SRH 
GATM 
HSS 
INP 


VAR,@ 
CLLRS 
SET 
SM 
S766 
INIL. 
WAIT 
«080 
RUATA 
WDATA 
GCS 
eREAD 
eWRITE 
o SEEK 
RECL 


MED 
aCSw 
SCNT 
CMOS8T 
QUEST 
WAIT} 
RAN 
eGSU 
eSET 
RCALL 


102 


125456 PBASE RANDOM NUMBER 
2080 
AOCAL 
FNGIK 


$@016 MAIN 


@1 
2 
83 
04 
a5 
06 
27 
a) 
9 
ie 
41 
12 
13 
14 
15 
16 
17 
18 
iv 
20 
23 
22 
23 
24 
25 
26 
27 
26 
29 
30 
34 
$2 
33 
34 
35 
36 
37 
36 


181033 
688028 
COeees 
088853 
v86315 
080362 
0863517 
866320 
886521 
686322 
086323 
086524 
086525 
0863351 
o40333 
086332 
66635352 
086527 
206326 
0863355 
0863356 
086337 
880348 
OB6S41 
082353 
006347 
086358 
686353 
006352 
686355 
QB63554 
086561 
O06B4s 
006316 
BBddat 


A2VOS64 
206374 


SKIPSMOVS 2,8,SKP 
LTOxde20 

TOxisel 

aVSKPasy 
DOALLSJSR @LALL 
RANDSJSR @IRAN 
SAVACBJSR @1S8ac 
SETACEJSR @ISTAC 
TYPOECSUSR @IPDEC 
TYPAC{BJSR @ITACL 
TYPZieJSR @1TZ1 
MESSAGESJSR @I MESS 
PCRLFSJSR @ICRLF 
INPUTSJSR OLINP 
CMECKEJSR @I CHK 
GENSJSR @IGEN 
GEYPARSJSR @IHSS 
GETATMSJSR @IGATM 
SEARCHSJSR @ISRH 
CLRRBSJSR @LCLRS 
SETPSJSR @ISET 
SMEMBEJSR @ISM 
SEYTBSJSR @ISTHA 
INITESJSR SINIL 
PSTATSJMP @IPS 
READSJSR OIR 
WRITESJSR O1W 
SEEKBJSR OS 
RECALSJSR @IRC 
CKSwaJSR @ICSW 
HEADERSJSR @IHED 
INTWTBJSR @OLWT 
TYPASCSJSR 044 
DELAYSJSR @1LDLY 
NOpadélh 


SETUBJSk @I1S8Y 
CALADSJSR @LACAL 


#00 FULLOWING ROUTINE FOR ALL ROY UNITS 
IGENERATE RANDOM w IN ACB 

PSAVE ACQ,1,2 

PRESTORE ACO, 14,2 

HTYPE CAC1) IN DECIMAL 

TYPE (aCi) IN OCTAL 

TYPE (AC1) IN OCTAL, SUPP LEAD O'8 
1YYPE FOLLOWING MESSAGE IN ASCII 
TYPE CReLF 

IGET A LINE OF INPUT 

#CHECK ALL OF DATA BUFFER 

PGENERATE DATA BUFFER 

$GET MEADWSECT@ew SECT FROM INPUT LINE 
IGET NAME OR @ FROM INPUT LINE 
PSEARCW FOLLOWING TABLE FOR MATCH ON Ac} 
CLEAR READ BUFFER 

SET DISK PARAMETERS 

#S8I1ZE MEMORY 

SEY TIME BASE 

PINITIALIZE ERROR COUNTERS ETC, 
PPRINT STATUS 

pOISK READ & CHECK DATA 

SUENERATE DATA ANO WRITE DISK 

SEEK NEW CYLINOER 

PRECALIBRATE 

#CHECK CONSOLE SWITCHES 

PPRINT ERROR MESSAGE NEADER 
PINTERRUPT WAIT ROUTINE 

TYPE (ACOIR IN ASCTY 

pe MS DELAY I8 IN LOC DELAYe1, 


PSET READY UNITS 
PAOVRESS CALCULATOR, 





1@017 ,MAIN 


G4 
82 
a5 
04 
5 
a6 
07 
06 
89 
10 
ii 
12 
{3 
i4 
15 
i6 
17 
18 
19 
28 
21 
22 
23 


20580 
00504 
00502 
085835 
00504 
06585 
00506 
08507 
08510 
@8511 
06512 
08513 
CO514 
@0515 
00516 
@O517 
8a52u 


880500 


004421 BEGINI 


084420 
OO4417 
004446 
082375 
080467 
004413 
004412 
O44! 
Q84438 
004407 
004406 
004495 
082305 
282365 
2023565 
ea23565 


eRald 


VSRHEHHHEHEHEREHETEHEEHHEHEREHELETeHERHEe TES 


oe STARTING AOORESSES eee 


OHETHREHHEHTERRATHEHEHEARHTERHEHERHEEHHNHEEE 


eL0C S80 

JSR STRT PRELIABILITY YEST, ALL CYL. 
JSR STRT ' Ms Even " 
JSR STRT ’ ad ooo 6" 
J&R STRT pOJSK ADORESS TEST 

JUMP @TFNQK PNOT USEDwILLEGAL START ADORS 
JMP STRC HCOMMAND STRING INTERPRETER 
JSR STRT pONES TEST 

JSR STRY HZEROS TEST 

JSR STRT piib110 TEST 

JSR STRT #FLOATING ONES TEST 

JSR STRT PFLOATING ZEROS TEST 

J&R STRT PRUN ALL 

JSR STRT PSEEK EXERCISER 

JMP @IRCAL PRECALIBRATE UNIT $ 

JMP @IRCAL PRECALIBRATE UNIT 2 

JMP @IRCAL PRECALIBRATE UNIT 3 

SMP @IRCAL PRECALIBRATE UNIT @ 


{@@18 .MAIN 


Gi 
0e 
3 
a4 
a5 
26 
a7 
8 
ov 
16 
ii 
12 
is 
14 
15 
16 
17 
16 
19 
28 
23 
22 
2s 
24 
25 
26 
27 
28 
29 
38 
31 
32 
33 
34 
35 
36 
37 
38 


vo5sai 
ga522 
oas23 
bed24 
00525 
00826 
00527 
00530 
00531 
20532 
08559 
00534 
00535 
085350 
00537 
005428 
00541 
0ud42 
@0543 
80544 
00545 
08546 
60547 
26550 
20551 
0aos2 
08553 
60554 
620555 
00556 
80557 
00560 
00561 


0203503 
116488 
e84478 
686557 
206348 
263077 
006341 
O06364 
126408 
101225 
veean4 
101226 
125146 
125140 
12530 
44304 
062677 
es0n4s 
225800 
125005 
206365 
286325 
wb6S24 
@06477 
@86315 
baeS62 
O63514 
008777 
B60211 
020424 
OS0444 
113000 
0a5e0e 


' 
' 
' 


STRTI 


RSTRT3 


RS33: 





ROMER HEHEHE TE EET EEE EHHEEETHEREREAEHEHE 


eve INITIALIZATION ee 


COPE THES HEATERS TETRA ER TERT EEE HEHE TEREEEHE 


LDA #,FIRST 
SuH @,3 

STA 3, INDEX 
SMEM 

SETS 

HALT 

INITE 

SETU 

Sus 1,1 
MOVZR @,8,SNR 
JMP RSS 
MOVZR 8,8,S2ZR 
MOVOL iyi 
MOVOL {,1 
MOVS {oi 
STA 1,UMSK 
TORSY 

LDA 2,NEST 
LOA 1,0,2 
MOV 1,1,5NR 
JER OT .630 
PCRLF 
MESSAGE 
M8670 

DOALL 

TUN 

SKPBZ TTO 
JMP gel 
NIOC TTO 
LDA @,STR,2 
LOA 2,INDEX 
ADD 6,2 - 
JMP 08,2 


PINITIAL IZATION, ALL 


HSIZE MEMORY 

PSET TIME BASE 

PERROR RTN FROM TIME INITIALIZE, 
PINITIALIZE BUFFERS, COUNTERS, ETC. 
HSET READY UNITS 

PACOBREADY UNIT PATTERN 


PUNIT @ ONLY 


PUNTY 2 OR 3 MASKaS 
PUNIT 1 MASKS3 
PUNTT MASK 


JIS DISK SIZE 
PSPECIFIED 27 

INO, GET IT 
"TESTING UNIT " 
}TYPE UNIT NUMBERS 
PWAIT FOR TTO 


10 FINISH 
HCLEAR DONE 


160 TO TT Jj 





18a49 


63 

a2 
as 
04 
5 
06 
7 

6 
a9 
12 
4 
12 
13 
14 
T) 
46 
17 
18 
19 
28 
23 
22 
2s 
a4 
25 
26 
27 
28 
av 
36 
34 
32 
33 
34 
35 
36 
37 
38 
39 
48 
44 
42 


80562 
oa563 
00564 
@0565 
B8566 
60567 
00570 
BO57% 
oe572 
06578 


B0574 
00575 
00576 
00577 
00680 
Q0681 


08602 
20603 
O8604 
00605 
08686 
00687 
#0610 
60613 
e8612 
6613 
@G614 
00615 
08616 
00617 
08620 


oMAIN 


g5441e 
@20174 
224216 
123088 
g06aal 
220404 
e06eal 
ev2aes 
a0008e 
yooesa 


086337 
086548 
063877 
OBb6S41 
886505 
062407 


008682 
001810 
001546 
803505 
be2002 
688657 
002616 
202006 
262010 
062012 
oa2e14 
0802016 
QB17a4 
001772 
880888 


TUNS 


TUNRET! 
COMAS 


STRCS 


STR.23 


oCMD2 


INDEX? 


ITYPE UNIT NUMBER 
IFOLLOWED BY A *," 


STA 3, TUNRET 
LOA @, UNIT 
wWOA 1,068 
AOO 1,8 
TYPASC 

WOA @, COMA 
TYPASC 

IMP OTUNRET 
@ 


4 
'y 


IGCOMMAND STRING INTERPRETER DOES NOY REQUIRE 
PNORMAL INITIALIZATION, 


SMEr p8IZE MEMORY 

SETb 9SET TIME BASE 

MALT PERROR RIN FROM TIME INITIALIZE, 
INITE PINITIALIZE BUFFERS ETC, 

JSR 3,680 #SEY LAST MEAD/SECTOR 

JMP 6.CMO PDISPATCH TO ROUTINE 


COMMER H RHEE TE HERRHEHHHEHEEReHEteneeHeety 
eve OISPATCH TABLE TO PROGRAMS ee 


SOCK EHAETAHEHEHEHEROHEHHEHEREEHRHRHETANTEHS 


RELALL PRELIABILITY TEST, ALL CYL 
RELEV ’ " EVEN # 
RELOO ’ " ooo «* 
DATR JOISK ADDRESS TEST 

FX,4 #NOT USED 

cost COMMAND STRING INTERPRETER 
OAT! JONES TEST 

DaTe HZEROS TEST 

DaTP PALGLIG PATTERN 

OAYFL PFLOAT ONE 

DATFO FLOAT ZERO 

RUNALL PRUN ALL PARTS 

DAXSK SEEK EXERCISER 

a 


16022 ,MAIN 


@i 
@2 
as 
Q4 
a5 
a6 
@7 
a8 
69 
10 
ii 
12 
13 
14 
15 
16 
17 
18 
19 
20 
2i 
22 
2s 
24 
25 
26 
27 
28 
29 
30 
34 
32 
38 
34 
35 
36 
37 
38 
39 
40 
43 
42 
43 
44 
45 
46 
47 
48 
a9 
58 
54 
52 


88621 
09622 


80625 
@e624 


00625 
68626 
02627 
636328 
00631 
00652 
88633 
BOO3S4 
80635 
08636 
80637 
02640 
O064) 
00042 
68643 
CA644 
e6e45 
60646 
68647 
00658 
00653 
oe652 
00653 
28654 
00655 
30656 
80657 
00668 


O8661 
@8662 
O8065 
08664 
00665 
06666 
08667 
806798 


@867}3 


eeoneea 
1640857 


803656 
088521 


18248) 
020215 
040772 
836774 
224771 
21008 
197400 
634251 
136404 
080486 
024432 
125428 
024762 
123088 
041008 
151408 
834756 
156404 
000762 
e20215 
824756 
127080 
044301 
638045 
625008 
125005 
263877 
882805 


660477 
a24213 
125408 
O40174 
000552 
@B0771 
Q80778 
288767 


177737 


CSp2s 


CLOMSK3 160837 


ob Ste 
oLSTis 


FxXa003 


PX,2! 


FX, 38 


FX,41 


RCALLS 


M4aqt 


) 
PRREHERTHHHETHO HH EEHE RHEE TEE HENNE EHEEEHe 
few INITIALIZATION ee 
Jee SUBROUTINES ee 
AHIADO POCHERETEKERURTEHHENHEKE RTH HENNE OTEK eee 
STRT 


ICHANGE 1/0 ADDRESS TO 33 OR 73 


SUB @,@,SKP MAKE IT 33 
LDA 8,Cae PMAKE IT 73 
STA @,CSP2 


LDA 2,oL8T! POINTER IN MEMORY 





LOA 1,CTOMSK PINST MASK 

LOA @,9,2 1GET A WORD 

AND 2,1 

LOA 3,CWRD p18 IT AN 1/0 33 OR 73 7? 
SuB 1,3,$2R 

IMP FX,S yNQ 

LOA 1,Mal PMASK 

AND 1,8 9GET RIO OF BIT 108 
WDa 1,CSP2 

ado 1,8 MAKE ADOR 33 OR 73 
STA 8,8,2 PADOR CHANGED 

Inc 2,2 

LOA Spobh ST 

8U8 2,3,82ZR 

JMP FX. PMORE 

LOA 8,033 SET (COSK) TO 

LOA 1,C9P2 PEQUAL THE DEVICE ADOR 
ADD Q,14 

STA 1,CDSK 

LOA 2,NEST 

LDA 1,8,2 

MOV 1,1,SNR 

HALT HALL OONE 

JMP @3 


PRECALIBRATE THE UNIT IN SW 14015 


READS @ 
Da 1,03 
AND 1,8 
STA 8,UNIT 
RECAL 

IMP Fx,A 
JMP FX,A 
UMP FX,4 


PRECALIGRATE | 


aj 





jeeet 


Bt 
G2 
8 
4 
65 
86 
a7 
8 
69 
10 
il 
12 
15 
14 
15 
16 
17 
18 
i9 
20 
2% 
22 
25 
24 
25 
26 
27 
28 
29 
3@ 
33 
32 
33 





08672 
06675 
00674 
00675 
68676 
00677 
08700 
00783 
08762 
08783 
60784 
88705 
00706 
08707 
60718 
e711 
08712 
20713 
08714 


00715 
08716 


@0717 
@0720 
08721 
08722 
087235 
00724 
68725 
08726 
00727 
06732 
@8734 
007352 
88733 
087354 
08738 
08756 


eMAIN 


054424 STBQ3 


062677 
020421 
040001 
@32253 
151004 
200415 
606228 
125815 
@804e6 
846235 
286241 
125015 
080482 
600403 
634405 
003400 
@34405 
001401 


o@1ei1s 
688008 


058514 
024266 
102408 
#41000 
151442 
152414 
000775 
C40177 
020406 
042406 
020485 
040247 
O81400 
123456 
061758 
01756 


Stair 
STaat 
TRUP! 
SVSYB3 


INTL! 


INYLOE 





YFIND COMPUTER TIME BASE 


STA 3,S8VSTB 
TORST 

LUA 8, IRUP 
STA 8,3 

LOA 2,@ICALIB 
MOY 2,2,82R 
JmP STB2 

JER OSTIME 
MOV $,1,8NR 
JMP STBL 

STA §,O3CALIB 
JSR OXXLAY 
MOVM 1,1,SNR 
JMP STBL 

JMP STB2 

LOA 3,SVSTB 
JMP @,5 

LOA 3,8V8TB8 
IMP 1,3 


INTERRUPT 
@ 


9SKP THE TIMER IF CALIB 
pMAS BEEN LQADED, 


PRUN PROCESSOR TIMER, 

ICKN COUNT LOADED, 

PERROR IN TIMING ROUTINE] 

HSTORE COUNT IN CALIB, 

HINIT THE DELAY SUBR, 

HVERIFY SUBR, IS SETUP, 

P,WERK IS NOT LOADED W/ 1M8 COUNT, 


PERR IN TIME INIT, RTN TO CALL4, 
POTHERWISE 
PRETURN TO CALL2, 


HCLEAR ERROR COUNTERS ETC, 


LOA 2,ICYLF 
LOA 1,SSwet 
$U8 8,2 

STA 6,8,2 
INC 2,2 

Suse 1,2,SZR 
UMP aS 

STA 6,RALL 
LDA @,INIL@ 
STA 8, @INILOOL 
LDA 8,,¢3 
STA @, RANDOM 
JMP @,3 
123456 

1680, 

CRALL 


HL0A0 # LOOPS OF 
PRELTAB, COUNTER 


1@@22 .MAIN 


Bt 
b2 
3 
a4 
es 
66 
67 
a8 
ao 


88737 
620748 
00743 
6A7 42 
6a743 
08744 
00745 
08746 
08747 
06750 
08751 
08752 
08753 


08754 
00755 
02756 
00757 
00760 
28761 
08762 
88763 
08764 
00765 
00766 
OB767 
08778 
GO773 
08772 
68778 
08774 
00775 
08776 
00777 
81082 
61801 
1402 
0160s 
01004 
21005 
01886 
61087 
61010 
e1612 
@1012 


O54414 SETU,S 


021826 
665055 
o2e225 
@61353 
@25046 
060495 
4254e5 
000776 
2863516 
2883515 
002401 
690800 


854436 
020212 
O48i75 
886315 
088737 
@86316 
C88234 
668433 
062677 
1264088 
161388 
123208 
181208 
1061208 
101288 
125100 
181208 
$25108 
101208 
125108 
181208 
125108 
044175 
125004 
eo2aus 
826325 
000324 
HB0849 
063877 
080744 
000808 


sRETS 


oSET!S 


eSRET! 


PFIND AVAILABLE DISK DRIVE UNITS 


STA 3, RET 

LOA B,UNTINS,2 

VOC @,.0SKP PSELECY THE UNIT 
LOA @,Ci1000 

OOAP @,,D&EKP SEEK @ 

LOA 1,UNTSK,2 

OTA 8, .08KP pwALY FOR UNIT TO 
AND 1,8,5NR WBEGIN SEEKING 
IMP ,02 

DELAY pwAIT 33 M8 

oi 3MS ITIME CONSTANT FOR DELAY SUBR, 
JMP @,RET 

8 


'SET READY UNITS 


STA 3,.eSRET 

LOA @,C47 PFAKE ALL UNITS AVAILABLE 
STA @,ROYUNT 

OOALL ICHECK ALL TO SEE 

SETU. PWHICH ARE THERE 

DELAY 

22803 PWAIYT 228 MILLISECS, 

OIA 8, ,09KP PREAD STATUS 

TORST PRELEASE THE ADAPTER 

S8uB 1 
MUVS 
MOVR 
MOVR 
MOVR 
MOVR 
MOVL 
MOVR 
MOVL 
MOVR 
MOVL 
MOVR 
MOVL dot 

STA 1,ROYUNT 

MOV 1,1,SZR 

JMP @,SRET +DONE 

PCRLF #NONE READY 
MESSAGE 

M§G16 p"'NO READY UNITS* 
HALT 

JMP .SETo{ 

r) 


yA SEEK DONE INDICATES 
pA READY UNIT 


Se-GeGeSS8Sa ce 
- 2 ewe ee ee ew we we Ow 
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Qi Q1 
@2 ! COPTER HEHHRE TA THHEHHETHHUETEEEHAETEOHERHERERES 62 
a3 ' wee INTERRUPT SERVICING ee es DISK PACK INTERRUPT 
G4 ! SPOOR H ETE E RHA RHENHOEEHEHEEEEE THE HETETEOEE HEN @4 
5 @6 
O06 B1iGiS 854246 INTER! STA 3,8AVS 06 Q1U43 B6B6S5 INT,$3 OLAC B,,OSKP 
Q7 1014 086317 SAVAC @7 61844 249242 STA @, ISTAYT PSAVE FOR ALL TO USE 
G8 41015 665477 INTA 1 MWHO OLO IT97? 88 61045 w30174 LDA 2, UNIT 
O9 G1016 044424 STA 1,88 @9 61846 016421 I8sZ wTRET 
10 O1037 B38301 LDA 2,CDS8K 10 91047 @8242e JMP @wTRET 
11 61828 132418 SUB# 1,2,8NR 11 
12 01021 e80422 JMP INT, tOISK PACK INTERRUPT 12 01058 682000 MSKB5: 2000 
13 1822 o30025 LDA 2,018 13 
14 81823 1352415 SubM 1,2,5NR 14 PWAIT FOR INTERRUPT 
15 61624 600445 ump ITTL HTT INTERRUPT 15 #RUN TIMER TO PREVENT HANGUP 
16 01028 8342514 0a 3,CNIOC SSOMEONE ELSE 16 
17 @1026 137¢08 ADD 1,3 17 81651 820417 LDA Bp WAYXX pwAlTel IS NORMAL ENTR TO WAIT SUBR, 
16 Q1027 684491 STA 3,,¢1 18 @1852 848405 warts STA @,WALTS PWAIT TIME IS IN ACO BEFORE JSR, 
19 8103@ e6a2e0 NIOC @ HOEY ADDR ADDED DYNAMICALLY 19 O18953 126400 $uS 1,1 
28 81031 086325 PCRLF 28 B1eS4 454433 STA 3,WTRET 
21 010382 866324 MESSAGE 24 61455 960177 INTEN JENABLE INTERRUPTS 
22 01055 466005 M869 FINTERRUPT FROM DEVICE 22 81056 886316 DELAY 
23 618034 024406 LDA 1,86 23 61057 eOeseis warTis 1 
24 81835 886323 TYP2Z1 24 
25 B8eS6 vd6s20 SETAC 25 81068 2628277 INTOS ITIMEQUT, DISABLE INTER, 
26 21237 834246 LOA 3,SAV3 26 01861 062677 TORST HCLEAR ADAPTER FOR @NO COMP, 
27 o1040 260177 INTEN 27 01862 086354 HEADER gPRINT 
268 g1641 we2nee JMP 08 PRETURN 26 01963 9863825 PCRLF JERROR MESSAGE 
29 81042 280000 S8@s Q 29 81064 206324 MESSAGE 
36 $@ 01065 086337 MSG59 P"INTERRUPT TIMEOUT" 
3i 21066 on26e4 JMP @wTRET PERROR RETURN (#1) 
32 01067 220002 WIRET: © 
33 01878 @88235 wayxxt .2KMS 
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THE MOVING HEAD DISK RELIABILITY PROGRAM IS A MAINTENANCE 
PROGRAM DESIGNED TO EXERCISE AND TEST 4846 DISK CONTROLLER 
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EACH COMPUTER, 
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MOVING BEAD DISK RELIABILITY PROGRAM 
AUTOPRUN AUTO@LOAD MODIFIED 4/7/72 
ABSTRACT 


THE MOVING HEAD DISK RELIABILITY PROGRAM 

IS A MAINTENANCE PROGRAM DESIGNED TO 

EXERCISE AND YEST THE 4046 DISK CONTRULLER 
AND 1e4 DISK URIVES, THE DISK DRIVES MAY BE 
SHARED BETWEEN YWO COMPUTERS IN WHICH CASE 
THIS PROGRAM MAY BE RUNNING IN EACH COMPUTER, 


NOTE 

wows 
ONE COMPUTER RUNNING RELIABILITY 
TEST (SA 501), THE OTHER (SA 582) 
ONLYI 41 


eo we we we we 


THE CUNTROL CAN BE DEVICE 33 OR 75, 
MACHINE REQUIREMENTS 


NOVA FAMILY CENTRAL PROCESSOR 
4K READ/WRITE MEMORY 

TELETYPE 

4046 DISK CONTROL 

4047 OR 4848 CONTROL ADAPTER 
t°4 MOVING HEAD OLSK DRIVES 


OPERATING PROCEDURES 
A, VERIFY DRIVE (ORIVES) ARE READY ON@LINE 
8, LOAD PROGRAM USING BINARY LOADER 
C, RESET AND START AT ONE OF THE 
ADDRESSES SHOWN BELOW, 


STARTING ADDRESS 


2 RUN ALL 
4 StT DISK CONTROL ADDRESS TO 33 
5 SET DISK CONTROL ADDRESS To 75 
5@2 RELIABILITY TEST, ALL CYLINDERS 
5@1 RELIABILITY TEST, EVEN CYLINOERS 
52 RELIABILITY TEST, OOD CYLINDERS 
583 DISK ADDRESS TEST 
504 (NOT USED) 
585 COMMAND STRING INTERPRETER 
Se6 ONES TEST 
57 ZEROS TEST 
518 140110118 TEST 
Sit FLOATING ONE TEST 
512 FLOATING ZERO TEST 
515 RUN ALL 
514 SEEK EXERCISER 
515 RECALIBRATE UNIT 14 
516 RECALIBRATE UNIT 2 
547 RECALIBRATE UNIT 3 
520 RECALIBRATE UNIT @ 
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C, ERRORS © ERROR STATUS IS PRINTED 
WHENEVER ENCOUNTERED, WHEN DATA ERRORS 
ARE FOUNO ONLY THREE ARE PRINTED PER 
ENCOUNTER, (SEE PARAGRAPH 5) 


SwITCh SETTINGS 

SwO21 00 NOT HALT FOLLOWING ERROR 

Swieal INHIBIT ERROR PRINTOUTS 

Sw2e} REPEAT CURRENT TEST (SCOPE LOOP) 

Sw3ai INMHIBIY CHECK WORD AND DATA ERROR MESSAGES 
Sw4e{ BREAK YO ALLOm O1SK INTERCHANGE 

Sw5et FOR READ ONLY MODE, 


OD. SYATISTICS = TYPE ANY KEY OURING 
RANDOM TESTING TO GET A REPORT OF TRE 
NUMBER OF WORDS WRITTEN AND READ, PLUS 
THE NUMBER OF ERRORS, 

ewte NOTE eune 

THE PROGRAM WILL ACCOUNT FOR UP TO A MAX, 
OF 2431 WORDS WRITTEN OR READ, SPECIAL 
TEST RUNS EXCEEDING THIS FACILITY wILe 
REQUIRE AN OPERATOR'S TEST LOG TO AUGMENT 
SOFTWARE ACCOUNTING, 


PROLRAM RUNTIME 


PRUGRAM RUNTIMES ARE SUBSTANTIALLY REOUCEO wITH 
MEMORIES OF BK OR LARGER, RUNTIMES BELOW ARE FOR 
AN 8K CORE MEMORY, 


RUNTIME IS DEFINED AS TIME FROM 

START TO A 4PASS" MESSAGE, TYPICAL 
RUNTIMES ARE LISTED AS FOLLOWS 

RUNALL (SA 2)! APPROX, 27 MIN, 

(NOVA 80@, CORE, & 2 SURFACE DISK) 
SEEKEXERCISER (SA 544)! APPROX, S MINe 
(NOVA 808, CORE, & @ SURPACE DISK) 


BAUD RATE 


READ, WRITE AND SEEK OPERATIONS ARE TIMED 

BY SPECIAL ROUTINES, WHEN THE PROGRAM 13 

FIRSY STARTED, THE TIMING ROUTINE WILL TEST 

FOR TRE PRESENCE OF A REAL TIME CLOCK (RIC) 

TO DERIVE TIMING FROM IT, IF NO RTC IS 

PRESENT, THE PROGRAM WILL TYPE "TTO BAUD 

RATE", THIS MESSAGE REFERS TO THE BAUD RATE 

OF THe CONSOLE TERMINAL (DEVICE 10 & 11). 

TYPE IN THE BAUD RATE, IF & TYPING ERROR OCCURS 


IN Tee NUMBER STRING (BEFORE YHE CARRIAGE RETURN), 


SIMPLY TYPE A NON@NUMERIC CHARACTER AND 

THE REQUEST FOR THE BAUD RATE wiku BE 

REPEATED, IF THE CARRIAGE RETURN HAS BEEN 

GIVEN AFTER A TYPING ERROR, RELOAD THE PROGRAM, 


janed 
G1 
G2 
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13 
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PROGRAM DESCRIPTION 


A, RELIABILITY TEST (SA 568) 

A RANDOM NUMBER GENERATOR IS USED TO SELECT A 
DISK DRIVE,CYLINOER, HEAD, BEGINNING SECTOR, 
ANY NUMBER OF CONSECUTIVE SECTORS, RANDOM 
DATA 1S THEN GENERATED, WRITTEN, AND READ, 
THE SEQUENCE 18 REPEATED INDEFINITELYs 


B, RELIABILITY TESY (SA 5081) 

SAME AS Ay EXCEPT THAT ONLY EVEN 
NUMBERED CYLINDERS ARE USED, THIS 
ALLOWS A TWO COMPUTER SYSTEM TO RUN 
SIMULTANEOUS RELIABILITY TESTS. 


C, RELIABILITY TEST (SA 582) 
SAME AS 8, ONLY FOR OCD NUMBERED 
CYLINUERS, 


D, DISK ADDRESS TEST (SA 583) 

RANDOM DATA IS FIWST WRITTEN THEN REAO 

FROM ALL SECTORS ON EACH READY DISK, THIS 
INSURES THAT ALL DISK PACK SURFACES ARE 
USEABLE ANO THAT THE DISK PACK 1S PORMATTED 
PROPERLY. 
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F, COMMAND STRING INTERPRETER (SA $25) 
AS A TROUBLE SHOOTING AIO THE SERVICE 
ENGINEER MAY TYPE IN HIS OWN TEST LOOP, 
AFTER STARTING AY $65, THREE ARGUMENTS 
MUST BE ENTERED IN RESPONSE YO THREE 
PROGRAM QUESTIONS) "UNIT", "DATA", AND 
"COMMAND STRING", 


I, UNIT! TYPE UNIT w OR CARRIAGE TO 
USE THE PREVIOUS ENTRY 


Tl, DATA! RANSRANDOM 
ALOSALL ONES 
ALZ@ALL ZEROS 
PAT@110130 PATTERN 
FLOSFLOATING ONE PATTERN 
PLZSFLOATING ZERO PATTERN 


ALTERNATIVELY ENTER A STRING OF 
OCTAL 16 BIT WOROS TO BE 

USED AS DATA, THE WORDS 
ENTERED ARE USED REPEATEDLY 

TO MAKE UP & SECTOR BLOCK, 

TYPE CARRIAGE TO USE THE 
PREVIOUS ENTRY, 


Ili, COMMAND STRING? 
OPTIONS i, READ HEAD, SECTOR, MSECTORS 
2. WRITE SAME 
3. SEEK CYLINDER 
4, RECALIBRATE 
5, LOOP (GO TO BEGINNING) 
6. DELAY (N) 12.5MS INCREMENTS 
7. TYPE CARRIAGE TO USE THE 


PREVIOUS COMMAND SYRING, 


NOTE THAT EITHER SPACES OR A COMMA 

MAY BE USED AS AN ARGUMENT DELIMITER, 
EACH RESPONSE 18 TERMINATED BY 

TYPING CARRIAGE RETURN, IF MORE 

ROOM 18 NEEDED ON A LINE, TYPE 

LINE FEED TO SPACE TO THE NEXT LINE, 

THE WORD "SAME" USED WITH READ, OR WRITE, 
WILL CAUSE THE PREVIOUS DISK 

ADDRESS PARAMETERS TO BE USED, 
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THE FOLLOWING EXAMPLE WOULD CAUSE UNIT 

1 TO REPEATEDLY SEEK CYLINDER 

So, WRITE SECTORS 2 AND 3 WITH HEAD 5, 

THEN READ IT BACK AND CHECK, DATA IS SPECIFIED 
AS ALTERNATE wORDS OF ZEROS THEN ONES, 


UNIT? 1 
DATA @,377777 
COMMAND STRING: SEEK 50 WRITE 5,2,2 READ SAME LOOP 


G, ONES TEST (OATA ® ALL 14'S) 

ZEROS TEST (OATA # ALL @'S8) 

1149110 YEST (DATA © WORDS OF j{101L03102101101) 

FLOATING ONE TEST (EACH SUCCESSIVE WORD 
CONTAINS ONE 1 BIT WHICH IS MOVED 
RIGHT ONE BIT EACH WORD) 

FLOATING ZERO TEST (COMPLEMENT OF THE 
FLOATING 4 TEST) 


EaCH OF YHE ABOVE USE THE BASIC OISK ADURESS 
TEST, SUBSTITUTING THE APPROPRIATE DATA, 

ANY OF THESE PATTERNS INCLUDING THE RANDOM 
DATA USED FOR THE DISK ADDRESS TEST MAY 

BE RUN IN THE "READ ONLY" MODE, THIS 33 USEFUL 
FOR CHECKING THE INTERCHANGEABILITY OF DISK 
PACKS BETWEEN VARIOUS DISK DRIVES, 


TO GENERATE A DATA PATTERN START AT THE 
APPROPRIATE LOCATION AND SET SW4 TO 1, 

WHEN THE ENTIRE PACK HAS BEEN WRITTEN AND 
READ THE TELETYPE PRINTS "INTERCHANGE DISK® 
AND THE PROGRAM HALTS, THIS PACK MAY NOW 

BE READ FROM OTHER DISK DRIVES IN THE READ 
ONLY MODE (SW581), 
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1h 
12 
13 
14 
19 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
20 
30 
34 
32 


15, ERRUR REPORTING AND RECOVERY 
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ALL PHASES OF YHE SOFTWARE WORK THROUGH 

4 MAIN SUBROUTINES DESCRIBED BELOw, GACH 

SUBHOUTINE HAS A NORMAL RETURN (¢3) ANO 

AN ERROR RETURN (04), EACH SUBROUTINE WAITS FOR DISK 
COMPLETION WITH INTERRUPT ENABLED, A FAILURE 

TU DETECT INTERRUPT WITHIN SOOME (3 SEC FOR 
RECALIBRATE) RESULTS IN A "TIMEOUT" ERROR, 


RECALIBRATE © ANY UNUSUAL STATUS IS REPORTED 
IMMEDIATELY AND AN ERROR RETURN EXECUTED, 


SEEK » SEEK ERROR STATUS INCREMENTS SEEK 
ERRUR COUNTER, ANY ERROR STATUS RESULTS 
IN STATUS PRINTOUT, 


WRITE @ FOLLOWING "DONE ON A WRITE, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEDURE IS OUTLINEO FOR EACH CASE, 

IF THE ERROR IS NOT PRESENT THE NEXT CHECK 15 MADE, 


te READ/WRIYTE OONE STATUS « IF NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
ANL DO AN ERROR RETURN, 


2. MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
BIT, SEEK ERROR, END CYLINOER, OR DATA LATE). 

If ANY ERRGR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 


10608 
ai 
a2 
as 
a4 
a5 
Go 
a7 
Q8 
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3. ADORESS ERROR 
3.1 FIRST TIME = INCREMENT ADURESS ERROR COUNT 
AND REPEAT THE wRITE, 
3.2 SECOND SUCCESSIVE FAILURE » INCREMENT 
PERMANENT ADDRESS ERROR COUNT AND DO A 
ERROR RETURN, 


4. ENDING MEMORY ADDRESS » INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 5, 


5. ENDING DISK ADORESS * INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SEY THE FATAL FLAG, 
AND GO TO 6, 


6. NO FURTHER CHECKS 
6,1 FATAL SWITCH ON © DO A ERROR RETURN, 
6.2 OTHERWISE © 60 A NORMAL RETURN, 
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READ » FOLLOWING "DONE" ON A READ, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEDURE IS OUTLINED FOR EACH CASE, 

IF THE ERROR Ig NOY PRESENT THE NEXT CHECK IS MADE, 


i. READ/WRITE DONE STATUS = IF NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN, 


2. MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
BIT, SEEK ERROR, END CYLINDER, OR DATA LATE), 

IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 


3, ADORESS ERROR 
3,1 FIRST TIME # INCREMENT ADDRESS ERROR COUNT 
AND REPEAT THE READ, 
3.2 SECOND SUCCESSIVE FAILURE © INCREMENT 
PERMANENT ADDRESS ERROR COUNT AND DO A 
ERROR RETURN, 


4, CHECK WORD ERROR 
4,1 FIRST TIME © INCREMENT THE CHECK WORD 
ERROR COUNY ANO SET THE RETRY FLAG, PRINT 
"CHECK WORD ERROR" ANDO GO 70 5, 
4,2 SECOND SUCCESSIVE ERROR « INCREMENT THE 
PERMANENT CHECK WORD ERROR COUNTER AND SET 
THE FATAL FLAG, PRINT "CHECK WORD ERROR® 
AND GO TO 5S, 
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5, DATA ERROR 
5,! FIRST TIME » SET THE RETRY FLAG AND PRINT 
ERROR REPORT, 
Saiei CHECK WORD ERROR = OECREMENT THE 
CHECK WORD ERROR COUNTER AND INCREMENT 
THE CHECK WORD & DATA ERROR COUNTER, 
GO TO 6, 
5.1.2 NO CHECK WORD ERROR ~ INCREMENT 
THE DATA ERROR COUNTER AND GO TO 6, 
5,2 SECOND SUCCESSIVE ERROR = SEY THE PATAL 
FLAG AND PRINT THE ERROR REPORT, 
5e2,1 CHECK WORD ERROR = DECREMENY 
THE PERMANENT CHECK WORD ERROR COUNTER 
AND INCREMENT THE PERMANENT CHECK WORD 
& DATA ERROR COUNTER, GO TQ 6, 
5.2.2 NO CHECK WORD ERROR = INCREMENT 
THE PERMANENT DATA ERROR COUNTER, 
GO TO 6, 


6, ENDING MEMORY ADDRESS + INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERRUR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 7, 


7. ENDING OISK AUDRESS » INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 8, 


Be. NO FURTHER CHECKS 
8.1 RETRY SwITCH ON © PRINT "TRY AGAIN" 
AND REPEAT THE TEST, 
8,2 FATAL SWITCH ON = DO A ERROR RETURN, 
8.3 NO SWITCHES ON » OO A NORMAL RETURN, 
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UNTINS3 
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etOC 4 
INTERRUPT 
JMP @,o} 
eo RAL 

UMP @42 
JMP 043 
JMP @44 
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408628 
100882 
1484082 
48060 
20208 
1o¢ee 
40460 


eh OC 41 
YYPt 
FXALD 
Fx a0Det 
START 
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PSTART HERE, RUN ALL 


HSET ADDR TO 3S 
9SET AOOR TO 73 


HUNIT @ CODE 
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O80008 
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oBenb2 
o6ee14 
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CYLF3 
CYLT3 
SEEKTS 
SEEKER; 
WUOSwW? 
WOSRE 
CWwERS 
CWERPS 
ADDER: 
PADER? 
DATER: 
Cwoes 
CwOePs 
POERI 
MISC: 
SKYMOE 
RwTMOs 


HSw3 
CSYF8 
UNIT! 
RDYUNT 
eROYUE 
RALL3 
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RETRYS 
FATALS 
MOOE3 
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PFROM CYLINDERS 

970 CYLINDERS 

HTOTAL SEEKS 

ITOTAL SEEK ERRORS 
pwORDS WRITTEN 

pwOROS READ 

ICHECK wORD ERRORS 
HPERM CHECK WORD ERRORS 
PADDRESS ERRORS 
PPERMANENT ADDR ERR 
FOATA ERRORS 

#CRKK WD AND DATA ERROR 
PPERM CrHK WO AND DATA ERROR 
HPERMANENT DATA ERRORS 
yMISC ERRORS 
PSEEK/RECAL TIMEOUTS, 
PREAD/WRITE YIMEOUTS, 


PHEADER SwITCr 

#CMD STRING INTRP FLAG 
ICURRENT OISK ORIVE UNIT 
PAVAILABLE UNITS 


PRUN ALL MODE FLAG 

BREAD ONLY FLAG 

PRETRY TEST FLAG 

pF ATAL TEST RESULT FLAG 

POORECAL, LBSEEK, 2eREAD, SOWRITE 
HLOOP ON TEST SWITCH 

PSEEK SwifCr 


PLAST HEAD*I2 2,18,0R 20, 
HLAST SECTORe1) 6 OR 12, 


18 
@i 
2 
3 
a4 
85 
U1) 
67 
@6 
ay 
10 
i 
1% 
15 
14 
15 
16 
17 
18 
ie 
20 
24 
22 
2s 
24 
25 
26 
27 
26 
29 
30 
34 
32 
38 
34 
35 
36 
37 
38 


O13 MAIN 


O@2i1i 


08212 
eG219 
OG214 
e@2i5 
60216 
62217 
e220 
6822) 
8222 
C8223 
00224 
00225 


Q0226 


00227 
e823" 
08291 
002352 


08233 
OO234 
60235 
O8256 
60237 


680823 
eeuees 
Obee24 
waeees 
604017 
e6eess 
600897 
6896048 
686860 
66G067 
684477 
O0O3513 
0@0232 
e0o2i5 
000577 
681808 
000835 
007400 
OBOBS4 
077662 
177677 
6688535 
077666 


0047238 
000518 
065728 
218000 
0068ee8 


C2a0RVSe1 
C3 3 
CasDRVSe2 
CiasORVSe3 
Caza 17 
CSyet 33 
C378 37 
C4et 40 
Cé6a3 69 
Co7s 67 
STIMES PTIME 


C2e5,t 203, 


C2i23 212 
C2183 215 
C3773 377 
Cigee: 1008 
CAK@UNTDNGS 
C740@8 7480 
CiBKEUNTONG2 
CSPt 77662 


CSPi3 177077 
CwROE 60035 
CSP3s 77666 


ICaLIBs CaLI8 
e2QUMS3 208, 
e2KMSi 2080, 
e4KMSt 8168008 
DAXRTNE @ 


10014 


Qi 


00246 
08241 
08242 
88243 
BB244 
o0245 
68246 
00247 
88258 
68251 
60252 
00253 
08254 
00255 
68256 
60257 
Q8260 
08261 
80262 
ore6s 
B8264 
08265 
08266 
aG267 
0027@ 
00271 
00272 
00273 
00274 
00275 
an276 
60277 
08588 
O2581 
08582 
08383 
68304 
88385 
0035286 
08987 
605128 
0b311 
80512 


oMAIN 


0BsOue 
004702 
088088 
200008 
eo8OBue 
O4U008 
280008 
$23456 
080080 
660220 
0878128 
060008 
088008 
882800 
2800800 
087838 
O88800 
0354108 
@15574 
006767 
087807 
BBGGR8 
820008 
087018 
@14000 
688006 
G80800 
080062 
OBOAK8 
080008 
8080080 
886008 
0828008 
806855 
odueee 
@20508 
280008 
880408 
087408 
007408 
BBBCBB 
200000 
288008 


OMEGA? 
IxXyays 
ISTATS 
SAVG3 
Savi 
Savei 
SAV33 
RANDOMS 
RELRANS 
CNYOC? 
LAST 
LINCT: 
SEc! 
SC3 
HOS 
CAs 
TERMS 
UBR3 
CSBP3 
VARST?3 
VAREO? 
VARSPS 
VARPT? 
BUFF? 
CMEND? 
SMAXS 
EVOONS 
AECNTS 
CWCNTS 
DACNT3 
RWRETS 
DADAT3 
CFLG: 
COSKks 
csc: 
FIRSTS 
UMSKSs 
HMSKE 
SMSK3 
LMSK3$ 
eSC2 
RLUP? 
ALLRET! 


AYUP 


eoeoocers 


123456 


NIOC @ 
PRGEND 

a 

@ 

@ 

a 

PRGEND 

") 

UBUF F*UBUFF 
CBUFFeCBUFF 
VARe4 
VAROLS, 

@ 

@ 

PRGEND 
14aa2 


SePegcocussaesesse a 
s m Gi 
a oa 

ad 

z 


7408 
7498 
@ 
i) 
8 





ISTATUS AT INTERRUPT 
PSAVE ACO,1,2 


ICURRENT RANDOM NUMBER 


PPROGRAM END 

IBYTE POINTER 

PSTARTING SECTOR (POS) 
PSECTOR COUNT 

JHEAD 

IBEGINNING ADDRESS (VARIABLE) 
PHOLDOS TERMINATOR PLAG 

PUNIT BYTE POINTER 

HCMD STRING BYTE POINTER 
IVARIABLE DATA, SRT ADDRe} 

! " " TABLE END 

' " " END MARKER 
1VAR POINTER 

FOATA BUFFER SRT ADDR (CONSTANT) 
yTOP OF USABLE CORE 

WMAX SECTOR COUNT 

ICYLINOERS, (@)EVEN, (15) 000 


HDATA ADDRESS (OISK ADDR TEST) 
PEND CYL FLAG 


JUNIT MASK 1488 OR 488 OR @ 

HHEAD MASK 7488 OR 17488 OR 480 
YSECTOR MASK 7488 OR S488 

§# SECTORS MASK 74680 OR 3400 

ie SECTOR TRANSFERRED ON CHK WO ERR 
HREPEAT TEST ADORESS 





$O@L5 eMAIN 


Qi 
82 
as 
a4 
a5 
a6 
7 
a8 
) 
ia 
41 
12 
18 
i4 
15 
16 
17 
18 
iy 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
3@ 
$i 
32 
3a 
$4 
$5 
36 
37 
38 
39 


88513 
OG514 
083515 
OBS16 
68317 
80528 
Bas2i 
68322 
08525 
20324 
00325 
@8520 
00327 
68330 
OB35i 
6USSe2 
68553 
OBS34 
08335 
08336 
083957 
68540 
65414 
0O542 
08543 
08344 
68545 
00546 
68347 
68550 
OG351 
08952 
085535 
0G554 
00355 
08956 
68557 
@8560 
0856) 
00362 
08365 
O2364 
08565 
68366 
08567 
00372 
@O371 
00372 
028575 
08374 
08375 


008845 
000052 
OOLS71 
604731 
085557 
605563 
064248 
Ua4234 
264233 
004205 
0843545 
085008 
605862 
609637 
085567 
wesea7 
005246 
@G5371 
aeria4s 
081155 
QO5011 
066672 
OBO71L7 
081852 
665442 
683526 
065165 
oe2725 
003462 
obd147 
o83105 
205045 
a01413 
O85167 
005657 
Q02274 
082616 
202614 
061851 
005465 
001427 
000754 
COe661 
8008808 
000088 
Q80182 
2008008 
123456 
Ob2008 
C84g66 
003673 


el3msSs 
ICyLFe 
TALL? 
To_ys: 
TSaC3 
TSyact 
IPDEC?! 
Trvacis 
1Vz18 
IMESS! 
ICALFs 
ISRHI 
IGaTM? 
THSS! 
IINPS 
IGENS 
ICHK3 
Ivars 
ICLRB3 
ISET: 
Isms 
187Bas 
INYL? 
waTt 
1.0808 
IROATS 
IWDATS 
16c81 
IR 
Iwi 
1S3 
TRC: 
IPsSt 
THED! 
TCsws 
IScnTs 
Icsit 
TQusts 
Iwyi 
TRANS 
3.6902 
t8u! 
IRCAL3 
CYLNKS 
NO,8S5 
Cig: 
SVLHO? 
eRANS 
C2q005 
TACALS 
TFNGK? 


is. 
CYLF 
ALL 
OWTYM 
Sac 
STAC 
PUEC 
POCT 
zocT 
MESS 
CRLF 
SRH 
GATM 
M33 
INP 

6 

C 
VAR,@ 
CLR 
SEY 
SM 
ST8O 
INIL, 
WALT 
«D680 
RvaTA 
WOATA 
Gcs 
eREAD 
eWRITE 
a SEEK 
RECL 
PS 
MEQ 
CSW 
SCNT 
CMO8T 
QUEST 
WAIT@#4 
RAN 
0G5U 
eSET 
RCALL 
@ 

a 

1@2 


0 

123456 PBASE RANDOM NUMBER 
2000 

AOCAL 

FNQIK 


}@016 
Q1 
G2 
as 
64 
a5 
e6 
a7 
@6 
9 
18 
41 
12 
oe) 
14 
15 
10 
17 
18 
is 
20 
24 
22 
23 
24 
25 
26 
27 
28 
29 
38 
31 
32 
33 
34 
35 
36 
37 
36 


eMAIN 
181011 
008022 
CBGH21 
0888535 
086315 
086362 
0063517 
¢00328 
88652! 
886322 
686325 
286324 
886325 
BG653i 
2463533 
2863552 
6663558 
686327 
086326 
6663355 
006336 
026337 
000348 
e86541 
@82353 
006347 
006356 
086351 
8063552 
8260355 
Q06354 
086361 
O86B45 
Q86316 
OBAet 


AG0364 
006374 


SKIPSMOVH B,8,SKP 
IDye=s2e 

1Oxis2i 

eDSKP3S3 
DOALL@USR @JALL 
RANDSJSR @IRAN 
SAVACBEJSR @#1SAC 
SETACSJSR PISTAC 
TYPDECBUSR @IPOEC 
TYPACiSJSR @ITAC! 
TYPZLSJSR @1TZ1 
MESSAGERJSR @IMESS 
PCRLFOJSR PICKLE 
INPUT®JSR @LINP 
CHECKBJSR @ICHK 
GEN®USR @IGEN 
GEYPARSJSR @IHSS 
GETATMBEJSR @IGATM 
SEARCHSJSR @ISRH 
CLRRBSJSR @ICLRB 
SETPBJSR PISET 
SMEMBJSR #ISM 
SEYHSUSR #ISTHA 
INTTESJSR #INIL 
PSTATSJMP @IPS 
READSISR OIR 
WRITESJSR O1W 
SEEK@JSR OIS 
RECALSJSR @IRC 
CKSwEJSR ICS 
MEADERSUSR @IHED 
INTWTEISR @IWT 
TYPASCSJSR 044 
DELAY#USR @LDLY 
NOps4¢1 


SETUBUSK @ISU 
CALADSJSR @IJACAL 


9DO0 FULLOWING ROUTINE FOR ALL ROY UNITS 
IGENERATE RANDOM # IN ACB 

pSAVE aCO,1,2 

PRESTORE ACO,3,72 

HTYPE (ACi) IN DECIMAL 

sY¥PE (aCi) IN OCTAL 

ITYPE (€AC1) IN OCTAL, SUPP LEAD 618 
TYPE FOLLOWING MESSAGE IN ASCII 
TYPE CReLF 

sGET A LINE OF INPUT 

HCHECK ALL OF DATA BUFFER 

PGENERATE DATA BUFFER 

1GEY MEAD@SECTew SECT FROM INPUT LINE 
IGET NAME OR @ FROM INPUT LINE 
1SEARCK FOLLOWING TABLE FOR MATCH ON Ac} 
#CLEAR READ BUFFER 

#SET OISK PARAMETERS 

SIZE MEMORY 

ySEY TIME BASE 

PINITIALIZE ERROR COUNTERS ETC, 
PPRINT STATUS 

JOISK READ & CHECK DATA 

JUENERATE DATA ANO WRITE DISK 

SEEK NEW CYLINDER 

PRECALIBRATE 

HCHECK CONSOLE SWITCHES 

PPRINT ERROR MESSAGE MEADER 
PINTERRUPT WAIT ROUTINE 

PTYPE (aC@)R IN ASCII 

yu MS DELAY IS IN LOC OELAYel, 


PSET READY UNITS 
PADDRESS CALCULATOR, 
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81 
62 
@5 
04 
5 
06 
7 
08 
69 
1a 
41 
12 
138 
i4 
15 
16 
7 
18 
19 
28 
24 
22 
23 


80580 
00501 
68502 
08563 
eo5e4 
8505 
0a5e6 
00507 
00510 
@OS1i 
0e512 
68513 
@8514 
80515 
80516 
@0517 
8852v 


084421 
004420 
004417 
004436 
0823575 
008467 
084413 
684412 
OC44ais 
284438 
604407 
004486 
004405 
202505 
002365 
GO2365 
oa2365 


BEGIN! 


eRalt 


COKE RTERAHHAHATEHORHHEHETETEEEHEHEEHEKEETS 


STARTING ADORESSES eee 


AHHH EEHERONRSHHHEHHTEHTHAEHETEHREAROEHEEES 


ae 


eL OC 580 


JSR 
JSR 
JSR 
JSR 
JMP 
JMP 
JSR 
JSR 
JSR 
JSR 
JSR 
Jar 
JSR 
JMP 
JMP 
Jue 
JMP 


STRY 
STRT 
STRY 
STRT 
@LFNGK 
STRC 
STRT 
STRY 
STRT 
STRY 
STRT 
STRT 
STRT 
@IRCAL 
@IRCAL 
@IRCAL 
@XYRCAL 


PRELIABILITY TEST, ALL CYL. 
' if EVEN " 

' . 000 «(8 
pOTSK AODORESS TEST 

PINOT USEDwILLEGAL START ADORS 
HCOMMAND STRING INTERPRETER 
VONES TEST 

HZEROS TEST 

pite11e TEST 

PFLOATING ONES TEST 
PFLOATING ZEROS TEST 

PRUN ALL 

HSEEK EXERCISER 
PRECALIGBRATE UNIT 1 
PRECALIBRATE UNIT 2 
PRECALIBRATE UNIT 
PRECALIBRATE UNIT @ 


{6@18 MAIN 


Bi 
G2 
a3 
a4 
85 
06 
07 
e6 
ey 
19 
43 
12 
is 
i4 
i5 
16 
17 
16 
19 
20 
23 
22 
28 
24 
25 
26 
27 
26 
29 
3o 
31 
32 
33 
34 
35 
36 
37 
38 


ves2i 
88522 
68523 
6ed24 
68525 
20526 
08527 
Q9536 
00534 
00532 
08958 
6@534 
05355 
68550 
085357 
00542 
00541 
00542 
@8543 
BG544 
00546 
08546 
80547 
86550 
00551 
0552 
08553 
60554 
60555 
08556 
8O557 
00560 
@O561 


B20503 
£16408 
0844758 
066337 
286348 
063077 
O66341 
QO6364 
126408 
181225 
odoans 
101224 
129148 
125148 
125308 
044304 
062677 
830045 
@25800 
125865 
0665635 
086325 
666524 
086477 
Q06315 
OB8562 
B63511 
008777 
B68211 
020424 
050444 
113908 
BBSE08 


' 
’ 
' 


STRT! 


RSTRT3 


RS3i 





PAHO RHE ERETEHTEEHHEAHERE RHEE HEHE REA Hae 


wee INITIALIZATION ee 
CORE H REET EE EERE EEAEROR TERRE REET HET EORERORE 


LOA 4,FIRST 
Sun 8,3 

STA 3,INDEX 
SMEM 

SETB 

HALT 

INITE 

SETU 

SUB 1,3 
MOVZR @,8,SNR 
JmP RSS 
MOVZR @,@,S8ZR 
MOVOL iff 
MOVOL 4,1 
MOVS 51 
STA 1,UMSK 
TORST 

LOA 2,NEST 
LDA 1,0,2 
MOV 4,1,S5NR 
JSR @1,680 
PCRLF 
MESSAGE 
MSG7@ 

DOALL 

TUN 

SKPBZ TTO 
JMP gal 
NIOC TTO 
LOA @,STR.2 
LOA 2,INDEX 
ADD @,2 . 
JMP @8,2 


PINITIAL IZATION, ALL 


#SIZE MEMORY 

pSET TIME BASE 

PERROR RTN FROM TIME INITIALIZE, 
PINITIALIZE BUFFERS, COUNTERS, ETC, 
HSET READY UNITS 

PACOSREADY UNIT PATTERN 


PUNTT @ ONLY 


PUNIY 2 OR Y MASKS 
PUNIT 1 MASKS} 
PUNIT MASK 


HIS DISK SIZE 
PSPECIFIED 27? 

ynNO, GET IT 
"TESTING UNIT " 
HTYPE UNIT NUMBERS 
PWAIT FOR TTO 


yT0 FINISH 
HCLEAR DONE 


G0 TO IF 34 





16249 


ay 
@2 
6s 
a4 
5 
6 
87 
ee 
69 
4@ 
44 
12 
13 
14 
15 
16 
17 
18 
19 
28 
23 
22 
23 
24 
25 
26 
27 
26 
ae 
36 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 








80562 
085635 
08564 
@8566 
86566 
00567 
686570 
ee571 
oe572@ 
68578 


08574 
00575 
80576 
00877 
086090 
04601 


88682 
82663 
60604 
620605 
08606 
80607 
08610 
OG611 
80612 
o@615 
@0614 
00615 
O8616 
08617 
00620 


aMAIN 


0544198 
B20174 
024216 
423088 
886041 
020404 
686041 
002401 
882088 
000054 


266397 
066548 
663877 
CB6341 
886363 
082407 


080602 
081518 
201586 
881505 
e02002 
600657 
002616 
802006 
082018 
Od20%2 
002014 
062016 
QB1744 
O81772 
000808 


TUNS 


TUNRET! 
COMA 


STRCI 


~ 


STR,23 


eCMDa 


INDEX! 


STA 3,TUNRET 
LOA 8, UNIT 
Loa 1,068 
AOO 1,8 
TYPASC 

LOa @,COMA 
TYPASC 

IMP @TUNRET 
6 


#TYPE UNIT NUMBER 
#FOLLONED BY A *," 


ICOMMAND STRING INTERPRETER DOES NOT REQUIRE 
PNORMAL INITIALIZATION, 


SMEM 

SETS 

HALT 

INITE 

JSR 2,680 
JMP 6.CMD 


pSIZE MEMORY 

pSET TIME BASE 

HERROR RIN FROM TIME INITIALIZE, 
PINITIALIZE BUFFERS ETC, 

#SEY LAST MEAD/SECTOR 

dOTSPATCH TO ROUTINE 


COCR H HATE HAH REEH REET OTE E HEHE H HERE HOES 
eve OISPATCH TABLE TO PROGRAMS oe 


PROCHRHHTAARATHLEHOROTEHEHHESHEOEHEHAHNEOHS 


a 
RELALL 
RELEV 
RELOD 
DATR 
Fx.4 
cmost 
OATS 
DaTo 
OarP 
DATF, 
OQATFR 
RUNALL 
DaXxsk 
V] 


PRELIABILITY TEST, ALL CYL 


’ * EVEN * 

! : ooo o** 
HOISK ADORESS TEST 

NOT USED 

COMMAND STRING INTERPRETER 
JONES TEST 


HZEROS TEST 
PALOLLO PATTERN 
PFLOAT ONE 
PFLOAT ZERO 
PRUN ALL PARTS 
HSEEK EXERCISER 


ieee 


a1 
a2 
as 
o4 
a5 
e6 
a7 
8 
09 
10 
14 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
26 
25 
26 
27 
28 
29 
30 
34 
32 
33 
34 
35 
36 
37 
38 
39 
40 
43 
42 
43 
44 
45 
46 
47 
46 
49 
52 
51 
52 


aMAIN 
O@e21 aeeeee CSP2: Q 
OAG2Z2 [SVSS7? CLOMSKS 160037 JerwneneeneeneenneereewenestorruNnNenenene 
fue INITIALIZATION ae 
Jue SUBROUTINES ae 
62623 @@3686 .LsTt AIAvO LONER ERE H EAH ETE RHEE TEEN HEEEHENEOE RY 
82624 GO852i .LsTis SRT 
ICHANGE 1/0 ADDRESS TO 33 OR 73 
08625 182481 FXa00: SUB B,a,SKP MAKE IT 33 
80626 020215 LDA 8,C4e MAKE IT 73 
02627 040772 STA @,CSP2 
08658 850774 LOA 25 eb571 JPOINTER IN MEMORY 
OB631 24771 Fx,23 LOA 1,CIOMSK SINST MASK 
C0652 021908 LOA @,@,2 GET A wORD 
88633 187420 AND 0,1 
26634 834231 0a 3,CwRO #18 IT AN 170 33 OR 73 2? 
Q@G635 136404 SuB 1,3,82R 
@8636 880406 IMP FX.S tNO 
@B637 224432 LOA £,Mai PMASK 
08642 123488 AND 1,8 HGET RIO OF BIT 108 
0064) 024762 LOA 1,CSP2 
68042 125008 ADO 1,8 #MAKE ADOR 33 OR 73 
00643 041008 STA 8,8,2 PADOR CHANGED 
08644 151408 FX,38 Inc 2,2 
68645 834756 LOA Spek ST 
06646 156494 8U8 2,3,S8ZR 
02647 064762 JMP FX.2 MORE 
eeese e2e2i158 Oa @,CSS #SEY (COSK) TO 
Q065) 824750 LOA 1,CSP2 PEQUAL TYME DEVICE ADDR 
28652 197082 ADO 8,4 
00653 waadses STA 1,CDSK 
09654 839845 LOA 2,NEST 
0655 825000 LDA 1,0,2 
86355 125005 MOV 1,1,S5NR 
@8657 263877 FX, 43 HALT PALL DONE 
O265H Bseedes IMP 63 
PRECALIBRATE THE UNIT IN 8W 140145 
@0663 660477 RCALLS READS @ 
@0662 22421: Oa 1,C3 
OBOC6S 125408 AND 1,8 
@8664 842174 STA @,UNIT 
02665 286352 RECAL PRECALIBRATE j 
08666 OB8771 IMP Fx.4 
Q@0667 888778 IMP FXAA 
@0679 089767 UMP FX, 
@O674 177737 May 24\ 





,ea2s 


84 
a2 
es 
Qa 
a5 
86 
a7 
a8 
ey 
10 
11 
12 
18 
14 
15 
16 
17 
18 
19 
20 
24 
22 
23 
24 
a5 
26 
27 
26 
29 
3é 
34 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4i 
42 
as 
44 
45 


08672 
00673 
68674 
08675 
68676 
00677 
oe7ee 
00781 
08702 
88783 
00704 
60785 
08786 
00707 
00718 
@O711 
08712 
@G713 
00714 


00715 
00716 


08717 
00720 
08723 
08722 
087235 
00724 
68725 
08726 
00727 
08730 
QO734 
007352 
087383 
08734 
08755 
00756 


eMAIN 


O54424 STBG! 


062677 
@20421 
04008! 
632253 
151004 
600413 
¥86220 
1250:5 
@00486 
046255 
86241 
125015 
280402 
680405 
63445 
081400 
034463 
061401 


ee1e1s 
oaaees 


wSO514 
024206 
102400 
041000 
151408 
132414 
000775 
040177 
620406 
042406 
8204203 
040247 
081400 
123456 
061750 
001756 


STait 
STeat 
TRUPI 
SVSTB! 


INTL eS 


INTLBS 


HFINO COMPUTER TIME BASE 


STA 


3,SV8TB 


TORST 


LDA 
STA 
LDA 
MOV 
sme 
JSR 


@,TRUP 
Oi 
2,@1CALIS 
2,2,82R 
STB2 
OSTIME 


MOV® 1,4,8NR 


Jme 
STA 
JSR 


STBi 
1, OTCALI6B 
OIXLAY 


MOV® $514,SNR 


JUMP 
JMP 
LDA 
JMP 
LOA 
SMP 


S$T84 
ST62 
3,S8VS8T6 
@,3 
3,S8V8TB8 
i,3 


INTERRUPT 


98KP THE TIMER IF CALIB 
pHAS BEEN LOADED, 


#RUN PROCESSOR TIMER, 

9GKN COUNT LOADED, 

PERROR IN TIMING ROUTINE) 

HSTORE COUNT IN CALIB, 

FINIT THE DELAY SUBR, 

PVERIFY SUBR, IS SETUP, 

y WERK [TS NOT LOADED ws 3m8 COUNT, 


HERR IN TIME INIT, RTN TO CALLO$, 
POTHERWISE 
PRETURN TO CALLe2, 


ICLEAR ERROR COUNTERS ETC, 


LOA 
LOA 
$u8 
STA 
INC 


2,ICYLF 
1,3Swet 
0,8 
6,8,2 
2,2 


Sus# 3,2,SZR 


JMP 
STA 
LOA 
STA 
LDA 
$Ta 
JmP 


aed 

@,RALL 
@,INIL® 

BO, @INILOeh 
O,.¢3 
@,RANDOM 
8,3 


123456 
188e, 
CRALL 


#L0A0 # LOOPS OF 
PRELIAB, COUNTER 





1@@22 MAIN 


BY 
62 
83 
4 
5 
66 
87 
a8 
9 
18 
13 
12 
1s 
14 
15 
16 
17 
18 
19 
26 
2) 
22 
28 
24 
25 
26 
27 
28 
29 
38 
34 
32 
38 
34 
35 
36 
37 
38 
39 
40 


88737 
60740 
06744 
09742 
00743 
08744 
00745 
20746 
88747 
08750 
20753 
08752 
08753 


80754 
ea755 
00756 
00757 
08768 
80761 
08764 
00763 
08764 
88765 
00766 
08767 
00778 
OO774 
08772 
08773 
00774 
08775 
08776 
00777 
@12882 
61001 
eieee 
0168s 
01004 
01005 
01886 
81087 
61016 
e1ei2 
biel2 


054414 SETU,S 


021626 
665053 
vze225 
C63353 
025846 
060433 
1234205 
000776 
286316 
8886313 
202401 
600800 


@54436 
026212 
040175 
B06515 
800737 
006516 
088254 
068435 
862677 
126488 
163388 
103208 
1861208 
161208 
101208 
125108 
101208 
125128 
141266 
1251288 
181200 
1251428 
@44175 
1250604 
602446 
006525 
Obo324 
#26045 
065077 
000744 
080808 


eRETS 


eSETS 


eSRETE 


IFIND AVAILABLE OFSK DRIVE UNITS 


STA 3,,RET 
LOA @,UNTINS,2 
DOC 6,.LSKP 
LDA 8,C1080 
OQAP 0, ,08KP 
LDA 1,UNTSK,2 
OJA 8,,08KP 
AND 1,8,S5NR 
JMP ,o2 

DELAY 

ei SMS 

JMP @,RET 

] 


H8ET READY UNITS 


STA 3,SRET 
LOA @,C47 
STA @,ROYUNT 
OOALL 

SETU, 

DELAY 

o28OmMs 

OIA @,,0SKP 
TORST 
8u8 1, 
MOVS 
MOVR 
MOVR 
MOVR 
MOVR 
MOVL 
MOVR 
MOVL 
MOVR 
MOVL 
MOVR 
MOVL 
STA 1,ROYUNT 
MOV 1,1,SZR 
JMP @,SRET 
PCRLF 
MESSAGE 
MSG16 

HALT 

IMP SETS 

r,) 


~-SeS- Ge SSEES 
s-—.s7 * © e © 2&2 & Se & SB Se Oe 


-CGre SSeS GSEEE S 


PSELECT THE UNIT 
sSELK @ 


SWwAIYT FOR UNIT TO 
PBEGIN SEEKING 


PWATT 13 = 8 
HTIME CONSTANT FOR DELAY SUBR, 


SPAKE ALL UNITS AVAILABLE 


ICHECK ALL TO SEE 
PWHICH ARE THERE 


PWATT 200 MILLISECS, 


YREAD STATUS 
PRELEASE TME ADAPTER 


94 SEEK DONE IJNOICATES 
PA READY UNIT 


sDONE 
#NONE READY 


y"NO READY UNITS* 


{82625 MAIN 


$6224 ,MAIN 
Q3 
G2 
as 
84 


i 

@2 ! PRR RE REPRE RE EEE SERRE ERE EERE EERE ERE EEE REE EERE 
a3 ' wwe INTERRUPT SERVICING ee 
@4 , SHES HHERESEARAHARHTERAHETHATAHEEHERESEREHREEEERER 
5 

@6 B1013 854246 INTER STA 3,S8AVS 

@7 B1884 086317 Savac 

G8 41815 065477 INYA 4 MWHO OFO 797? 

O9 B1816 044424 STA 1,80 

1@ 04817 838301 LDA 2,COSK 

11 91828 1352415 Su6# 1,2,5NR 

12 @1021 280422 JMP INT,3 POITSK PACK INTERRUPT 

413 61822 a30025 LOA 2,Ci8 

14 81023 1352415 Suse 1,2,5NR 

16 01824 40o448 Jmp I7Ty ITT INTERRUPT 

16 81825 834253 0a 3,CNIOC JSOMEQONE ELSE 

17 01026 137808 ADO 1,3 

18 01027 e54451 STA 3,,¢1 

{9 81038 g6020e NIOC @ HOEY ADDR ADDED OYNAMICALLY 

26 81033 806325 PCRLF 

21 81032 86324 MESSAGE 

22 81039 686005 M8G9 FINTERRUPT FROM DEVICE 

23 1034 024406 LDA 1,88 

24 81035 286323 TYP23 

25 1836 bs6s2e SETAC 

26 81837 834246 LDA 3,SAV3 

27 016040 060177 INTEN 

26 01041 eé2a00 SMP 08 PRETURN 

29 @1042 280008 Se: @ 

38 


‘) 
86 
7 
88 
a9 
ie 
ii 
42 
{3 
14 
{8 
16 
17 
16 
19 
28 
21 
22 
2s 
24 
26 
26 
27 
26 
29 
36 
St 
32 
338 


B1e4s 
61644 
o12@45 
#1046 
B1047 


61650 


61851 
816052 
@1853 
o1ese 
614655 
@1856 
01087 


81068 
01864 
01862 
81063 
G1264 
61065 
01866 
01267 
01878 


060635 
040242 
o3ai74 
o1e4at 
082420 


622860 


620417 
840405 
126490 
54413 
660177 
286516 
o8esu! 


068277 
062677 
626354 
066325 
ee6324 
086337 
082401 
280080 
000235 


INT, 13 


MSKBS! 


WATT! 


WATTLES 


WTRETS 
WAYXXS 


HOISK PACK INTERRUPT 


OIAC 0,,0SKP 
STA 8, ISTAT 


LDA 2, UNIT 
18Z WTRET 
JMP @wTRET 


2020 


pSAVE FOR ALL TO USE 


PWAIT FOR INTERRUPT 
#RUN TIMER TO PREVENT MANGUP 


LDA @,WAYXX 
STA O,wWalTi 
$uB 1,1 

STA 3,WTRET 
INTEN 

DELAY 

i 


InTOS 
TORST 
HEADER 
PCRLP 
MESSAGE 
MSG59 

JMP OWTRET 
@ 


e2KkMs 


pwAITet IS NORMAL ENTR TO WAIT SUR, 
MWAIT TIME J8 IN AC@ BEFORE JSR, 


PENABLE INTERRUPTS 


HTIMEOUT, OISABLE INTER, 
HCLEAR ADAPTER FOR @NO COMP, 
PPRINYT 

PERROR MESSAGE 


P"INTERRUPT TIMEQUT" 
ERROR RETURN (#1) 





$0025 ,MAIN 


Bi 
@2 
rh) 
4 
6 
a6 
67 
08 
09 
18 
13 
12 
13 
14 
15 
16 
17 
16 
19 
20 
24 
22 
23 
24 
25 
26 
27 
26 
29 
36 
34 
32 
38 
34 
36 
36 
37 
38 
39 
40 
41 
42 
4s 
44 
45 
46 
47 
48 
49 
S¢@ 
54 
52 
33 
54 
55 
56 
57 
58 


@1074 
01072 
01875 
B1074 
01876 
01876 
01077 
e110 
01102 
61102 
B11es 
01104 
e11es 
61106 
01187 
@1310 
Oitys 
o1iie 
BLssys 
O1114 
01115 
01116 
i117 
1120 
0112) 
01122 
O1i2s 
o1124 
o1125 
01126 
o1127 
01392 
O18) 
O1192 
61139 
B41354 
@1155 
B1156 
61457 
61140 
e114) 
61142 


@1143 
@1144 
01145 
@1146 
01247 
#1150 
@1155 
@1152 
@1155 
01154 


460218 
O2a1758 
101004 
802357 
020272 
103005 
CG0404 
0202835 
181225 
880433 
086325 
@86325 
220174 
840433 
020312 
040432 
e20544 
040021 
22021 
101085 
000414 
048405 
O22021 
040405 
006325 
086524 
000068 
006315 
000888 
063618 
800764 
60212 
620418 
O4G174 
028407 
040332 
206320 
034246 
060177 
662000 
eeenes 
oeeoee 


182468 
030267 
o24255 
1253500 
147008 
041008 
151482 
132414 
o02a775 
001400 


TTvIs 


ITy.is 


ITT 2! 
IT7,5t 


1vT7,43 


TTy,53 


SAvus 
SAvAs 


CLRBS 


ITELETYPE INTERRUPT 


NIOC TTY HKNOCK DOWN THE TTY FLAG 
LOA 8,CEIF PCS FLAG (8A 55) 

MOV @,8,82R 

JMP @iC8I RETURN TO CSI 


VIF TWO COMPUTERS 
PONLY PRINT DURING 
PREAD OR WRITE 


LOA @,EVOON 
MOV @,08,SNR 
UMP 444 

LOA 8, MODE 
MOVZR @,8,S5NR 
UMP ITT,S 
PCRLP 

PCRLF 

LOA 8,UNIT 
ST @,S8AVU 
LDA @,ALLRET 
STA @,SAVA 
LDA @,POTo1 
STA @,20X1 
LOA @,@1T0x) 
MOV @,8,SNR 
UMP ITT.4 
STa O,ITT.2 
LOA 8,@JOXL 
STA @,1T7,9 
PCRLF 
MESSAGE 

8 PTITLE 

DOALL PPRINT FOR ALL ROY UNITS 
@ PPRINT ROUTINE ADDRESS 
SKPDN TTI PQUIT TF KEY STRUCK 

IMP ITT,1 
NTOC YT? 
LDA @,SAVU 
STA @,UNIT 
LOA @,SAVA 
STA @,ALLRET 
SETAC 

LOA 3,SAVS 
INTEN 

UMP Og 

) 

6 


pa SEEK OR RECAL 


PSAVE ALL RETURN 


PPRINY TABLE 
yEND TABLE, DONE, 


PRESTORE UNIT & 
PRESTORE ALL RETURN 


PRESTORE act 


HCLEAR REAO BUFFER 


HCLEAR READ BUFFER 
PSPACE TO ZEROS 


SUB 8,2 

LOA 2,8UFF 
LOA 1,8C 
MOVS 173 

ADD 2,1 

STA 8,8,2 
INC 2,2 

S$uBa 1,2,8ZR 
JMP ya 

JMP 8,5 


{@@26 MAIN 


Gi 
2 
es 
4 
as 
86 
07 
26 
89 
16 
43 
12 
13 
14 
15 
16 
17 
18 
19 
20 
23 
22 
25 
24 
25 
26 
27 
28 
29 
32 
34 
32 
33 
34 
35 
36 
37 
38 
39 
42 
41 
42 
4s 
44 
45 
46 
47 
48 
49 
58 


@1155 
01356 
o1157 
01160 
wii6i 
@1162 
81163 
01164 
01165 
@1166 
61167 
04378 
@1173 
B1172 
621175 
61174 
61175 
03176 
@1177 
012008 
01201 
01202 
01285 
01204 
81205 
01206 
01207 
01210 


O12i4 
OL2i2 
o12is 
e12ié 
e12%5 
01216 
01217 
61228 
e1221 
bi222 
612235 
g1224 
01225 
01226 
01227 
01258 
e123) 
61252 


854465 
630174 
020255 
040318 
034271 
1164353 
080468 
180408 
824212 
187400 
021026 
107888 
620254 
103128 
183120 
187008 
020256 
181520 
107068 
087233 
062433 
122415 
000406 
086317 
086325 
C86324 
eoosnd 
600412 


024257 
6668353 
0614353 
186415 
082425 
686317 
206325 
066524 
806307 
686524 
086312 
866325 
086324 
606276 
024244 
086322 
e6o324 
“BO3e1 


SET: 


SEYit 


SETas 


TSEY PARAMETERS 


STA 3,SERET 
LOA 2,UNIT 
LOA @,8C 

STA @,,SC 
LOA 3,SMAX 
SUBZ* @,3,5NC 
JMP S,1 

NEG 8,8 

LOA 1,017 
ANO @,1 

LDA 8,UNTINS,2 
AUD @,1 

LUA 8,SEC 
ADOZL 8,8 
AVDZL @,8 
ADD @,1 

LUA 8,RD 
MOVS 0,8 

ADD @,1 

DOCC 41,,03KP 
DIC 8,,USKP 
Subm 1,8,8NR 
JMP SETS 
Savac 

PCRLF 
MESSAGE 
M8GS3 

JMP SET2 


LOA 1,Ca 
DOB 1,.20SKP 
OTB 8,,D08KP 
S8UBw 0,1,8NR 
JMP @SERET 
SAVAC 

PCRLF 
MESSAGE 
M8654 
MESSAGE 
MS$G55 

PCRLF 
MESSAGE 
MSG51 

LDA 1,3AV1 
TYPACi 
MESSAGE 
MSG52 





PSETUP OISK CONTROL 
HFOR CURRENT INSTRUCTION 


PMAX w# SECT DUE TO MEM SIZE 
MEMORY TOO SMALL 


ICAPHEADeSECTOR 
PSECTOR COUNT 


HFIRST SECTOR 


PLOAD UNI TeHEAD@eSECT@CNT 
pREAD ZT BACK 
ICHECK 


1.040 ERROR 


"ooc" 


HLOA0 CURRENT ADDRESS 
PREAOD IT BACK 
yCHECK 


yL0AD ERROR 


y"DQOB" 


y"LOAD ERROR" 


#6000 


1BAD 


18027 {MAIN $0828 ,MAIN 


G1 Bi i517 BS44d1 PHOR! STA 5, TRET HPRINYT HEADER NUMBER 
@2 1255 824243 LOA 1,SAV8 G2 81326 824174 LOA {,UNIT 

OS G81234 086322 TYPACY @S 61321 ve6S25 TYPZi 

@4 01255 890174 LOA 2,UNIT ICOUNT AS A MISC ERROR 04 81522 042446 UMP @TRET 

@5 01236 011156 TSZ MISC,2 6S 

G6 81237 e@86555 CKSw ICHECK SWITCHES @6 1323 25072 PSKERI LUA 1,8EKER,2 PPRINT & SEEK ERRORS 
Q7 81248 683716 JMP SETe} 87 1524 054444 PS,i8 STA 3,TRET 

G8 1241 B8adyui UMP @SERET 68 61925 406521 TYPDEC 

QO 81242 O8BOED SERET: 2B @Y i320 82442 IMP OTRET 

18 1@ 

11 01243 @86337 S,4! Savac 11 81327 925062 PTSEKs LOA 1,SEEKT,2 #PRINT # SEEKS 

12 @1244 986325 PCRLF 12 i334 033066 LOA 2,SEEKTO4,2 

13 w1245 986324 MESSAGE 13 B1SSi Bods IMP PT,4 

14 61246 B86234 M8639 y4MEM TOO SMALL 14 

15 01247 424243 LOA 1, SAV8 15 81332 925076 PTwwe LOA {,WOSwW,2 PPRINT WORDS WRITTEN 
16 01252 8063523 TYPZ1 16 91353 @3i1e2 LOA 2,WOSWOd,2 

17 8125) 006824 MESSAGE 17 01384 O54434 PT L3 STA 3,TRET 

18 1252 wes2a7 M8G48 PSECTORS, RESTART 18 813535 2863943 JSR 61,080 

19 01253 063877 HALT 19 £336 062432 Jae @TReT 

20 Wi254 426408 UMP, 20 

24 23 61337 25106 PTwRe LOA £,WwD8R,2 YPRINT WORDS READ 

22 SPRINT TABLE 22 i346 vSi112 LOA 2,WOSRO4,2 

23 23 6184) 6460775 JMP PT.4 

24 81255 901255 « 24 

25 1256 wadeet POT! MSG13 25 81342 025116 PYcwEt 0A 1,CWER,2 PPRINT CHECK WORD ERRORS 
20 01257 083517 PHDR 26 @1343 200761 JMP PSei 

27 61268 BE6BS4 MSG15 27 

28 81261 821327 PYSEK 28 01344 825122 PTCWPs LDA 1,CWERP,2 PPRINT PERM CHK WD ERRS 
29 01262 Be6e25 M8G\4 29 41545 800757 JMP PSel 

3Q@ 01263 281523 PSKER 3e 

31 01264 866127 M§G25 31 @8346 2251326 PTAERS LDA 1,ADDER,2 PPRINT ADORESS ERRORS 
S2 01265 6633552 PY Ww 32 61347 000755 JMP PSe4 

3S 61266 Ue6157 MSG26 33 

34 81267 Q61337 PTWR 34 61358 025132 PTPAES LOA 1,PADER,2 PPRINT PERM ADDR ERRS 
35 61270 066174 MgG29o 35 81351 080753 JMP #S,3 

36 C1271 888546 PTAER 36 

37 01272 866204 M8638 37 @1352 025156 PIDER! LDA 1,DATER,2 PPRINT DATA ERRORS 

38 O1273 81358 PTPAE 38 01353 80751 JMP PS,i4 

39 01274 8860146 M$G27 39 

4@ 01275 81542 PYCwE 40 81354 825152 PTPDES LOA 1,PUER,2 PPRINT PERM DATA ERRS 
41 1276 686162 M§G28 44 81355 980747 IMP PS.t 

42 01277 O@4544 PYCWP 42 

43 61500 066216 MSGS1 45 @1356 @25156 PYMss LOA 1,MISC,2 HPRINT # MISC ERRORS 
44 613@1 081352 PYDOER 44 @1357 680745 JMP PS, 

45 G1582 BB6SAS M§G61 45 

46 B1585 0891554 PYPOE 46 61360 @25142 PTCWDE LOA 1,CwOE,2 PPRINT # CHK WD AND 
47 Q1304 866401 MSG6S 47 81364 808745 JMP PS.4 #OATA ERRORS, 

48 Bi585 0813568 PTCWO 46 

49 01506 086415 MSGO6 49 61362 625146 PTPCWs LOA 1,CwDEP,2 SPRINT # PERM CHECK WORD 
5@ Q1307 084562 PYPCW 58 61365 oBu741 IMP PS, PAND DATA ERRORS 

54 O1Sie B663554 MSG62 Si 

S2 visits 81356 PYMS 52 @1564 G25162 PSKTO! LOA 1,SKTMO,2 PPRINT w OF SEEK AND 
53 013912 886525 M8672 33 01365 0828757 JMP PS.4 PRECAL ERRORS, 

S34 BiS1S BB,364 PSKTO 54 

55 e13i4 86540 MSG73 55 @1366 @25166 PRWTOs LOA 1,RWTMO,2 OPRINT w QF READ/WRITE 
56 O1515 681566 PRWTO 36 81367 wee7ss JmP PS.4 #TIMEQUYTS, 


57 81516 888600 Q 57 8137¢ wbeGo8 TRETI @ 








@ @ : ' © 


{0829 ,MAIN [@@3@ eMAIN 

81 0) 

G2 PEXECUTE THE ROUTINE POINTED TO BY @2 pASK FOR OISK SIZE 

as YTHE WORD FOLLOWING THE CALL. O00 70 a3 

e4 FONCE FOR EACH ACTIVE UNIT 84 01427 #54425 ,GsDt STA 3,FDSRET 

os 65 61430 ve6s25 PCRLF 

@6 Bi371 54312 ALL? STA 3,ALLRET 06 01433 086324 MESSAGE 

@7 13572 182408 Sus 6,8 87 B1432 C86456 "8669 P*TYPE THE NUMBER OF DISK SURFACES * 
O86 B1373 640174 ALL eit STA @, UNIT @8 @1433 2806331 INPUT pWAZY FOR INPUT 
OO 813874 834312 LOA 3,ALLRET @9 01434 oee261 ueP PBYTE POINTER 
16 81375 w30174 LOA 2,UNIT 1@ 01435 e80445 JMP ,GSD1 P"CR" ONLY JS ERROR 
411 01376 e21022 LDA @,ORV8,2 11 @1436 986327 GETATM 1GET THE NUMBER 
12 61977 024175 LOA 1,RDYUNT 12 61437 105000 MOV 8,1 

13 08400 123434 ANDW 1,0,8ZR 13 61448 886326 SEARCH pIS NUMBER 2,4,38 OR 20 
14 01481 087480 JER 08,3 900 I7 FOR THIS UNIT 14 61443) 001455 ANUM HTABLE ADORESS 
15 01402 eeg4e! SMP ot PIGNORE RETURNGS, 2 RUUTIS 15 01442 gavaag JMP GSD! NO 34 

16 01403 o004e1 IMP oot 16 81443 621011 FOS.2! LOA 8, SMXeHNUM,2 

17 01404 10174 18Z UNIT 17 03444 248218 STA ByL8 PLAST SECTORS 
18 01485 o20174 LOA @,UNIT 16 21445 221005 LOA @,HMNeHNUM, 2 

19 1496 B24u24 LDA 4,04 19 61446 640207 STA @,LAD PLAST MEADSS 

26 w14ae7 122414 SuBM 1,8,S2R 20 01447 e21015 LDA @,MSLeHNUM,27HEAD MASK 

24 B141a o8u76S JMP ALL OS 21 01488 040305 STA 0, HMSK 

22 841s 010332 ISZ ALLRET 22 alaSi 221021 LDA @,MS2eHNUM,27SECTOR MASK 

23 O1412 8862312 UMP OALLRET 23 91452 940306 STA @,SMSK 

aa 24 1453 802483 JMP OFOSRET 

ae 25 #1454 C0808 FUSRET: @ 

27 

26 

29 IPRINT STATUS 

36 

31 @1413 B863554 PSI HEADER 

32 01414 006325 PCRLF 

33 01435 024242 LOA 1,I8TAT 

34 81416 86322 TYPACS 

35 O1417 B06324 MESSAGE 

36 81420 005767 MSG4 9" 8 ENOING STATUS" 

37 01421 802276 JMP @RWREYT 

38 

39 


40 81422 80080 EGGS! a PHEN FLAG 

44 01423 080000 @ POEVICE CODE THIS RUN 
42 01424 8000608 @ mnOT USED 

43 01425 eoooe8 ] ym OF PASSES THIS RUN 
44 81426 880000 8 PRETURN ADDRESS 


4@034 MAIN 


G1 
e2 
88 
a4 
6 
96 
67 
e6 
eo 
18 
41 
12 
13 
14 
15 
16 
17 
14 
19 
20 
23 
22 
as 
24 
25 
26 
a7 
28 
29 
30 


01455 
@1456 
61457 
@1468 
01461 


01462 
81463 
01464 
01465 


01466 
014467 
Q1478 
G1471 


B1472 
61473 
01474 
01475 


01476 
01477 
61580 
@18e1 


01582 
e1503 
21504 


O888B2 HNYUME 


080010 
808020 
BAG004 
088802 


OGG802 HMxt 


090012 
060024 
eesae4 


OSO014 SMxt 


eeeees 
886034 
000014 


088408 
087488 
017408 
001468 


087480 
063400 
207480 
007488 


086324 
006256 
000724 


MSq3 


M823 


2G90i3 


10, 
20, 
4 


12, 
6 


12. 
12, 


400 
74008 
17480 
1488 


7498 
3488 
7400 
7400 


MESSAGE 
MSG43 
JMP .GSDe} 


ICARTRIOGE 
y23%3 
asia 

' 


ICARTRIOGE 
p23ai 
yasia 

U 


PHEAD MASKS 


PSECTOR MASKS 


PERROR 


H] KeaPall 


16852 


ai 
G2 
83 
a4 
a5 
a6 
07 
a8 
69 
$0 
ti 
12 
13 
44 
15 
16 
{7 
16 
19 
20 
23 
22 
2s 
24 
26 
26 
27 
28 
29 
38 
31 
$2 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 


a4 


45 
46 
47 
48 
49 
58 
54 
$2 
53 
54 
55 
56 


01585 
01596 
615087 
01818 
@i54i 
@1512 
1538 
o15i6 
#1515 
01516 
@1517 
B1520 


01521 
#1522 
81523 
e124 
01525 
01526 
@1527 
01530 


@15351 
61532 
61833 
B1534 
61535 
61536 
61537 


01849 
o1544 
01542 
015435 
bisa4 
01545 
61546 


@1547 
@1550 
01551 
01552 
615535 
01554 
01555 
@1556 
€1557 
b156e 
01561 
@1562 


o MAIN 


122624 
182528 
181804 
182420 
040272 
620362 
8423544 
042345 
628267 
040257 
026221 
948526 


086562 
O38304 
113782 
821822 
@24175 
123405 
088772 
050174 


006362 
@24305 
123782 
024207 
186437 
688773 
949256 


286362 
0246388 
123700 
624218 
186437 
686764 
640254 


966362 
924307 
123705 
020455 
@24271 
1896433 
688772 
240255 
824254 
@38256 
006317 
Q18243 


U 
, 
' 


REL ODE 
RELEVS 


REL ALLS 


REL sit 


REL 23 


REL 38 


REL 4! 


SPCR RETHAEKERHOHATHHEEHEREEHHAHESTUHTEEHETEDE 


en DISK RELIABILITY TEST 


eetaeee 


CREATE HAHEREHETEHTEREHERTERATETENCERHERHEEHE TED 


SUBZR 8,8,9KP 


SuszZL 8,9 
MOV 8,8,8KP 
SUB 0,8 

STA 2, EVOON 
LOA @,YRAN 
STA @,@IRDAT 
STA @,@IWOAY 
LOA @,8UFF 
87a 8,CA 

POA 82,0203, 
STA 8,RATIO 


RAND 

LOA 2,UMSK 
ANOS 8,2 

LOA 8,ORV8,2 
LOA L,RDYUNT 
AND 4,8,8NR 
JMP RELSL 
STA 2,UNIT 


RAND 

LDA 1,HMBK 
ANOS 1,0 

LOA 1,LHD 
$U8Z4 8,%,58N 
UMP RELW2 

STA 8, HO 


RAND 

LOA 1,8™8K 
ANOS 3,0 

LOA 1,L8 
SuUBZ# 8,1, S38N 
JMP REL? 

8TA @,S9EC 


RAND 

LOA 1,.MSK 
ANDS 1,0,8NR 
LDA 8,028 
LOA 1,SMAX 
SUSZ# O,1,8NC 
JMP REL, 4 
STA 8,8C 

LOA 1,8EC 
LDA 2,H0 
Savac 

18Z SAVS 


WUSE O00 CYLINDERS 
PUSE EVEN CYLINOERS 


SUSE ALL CYLINDERS 
+SET FOR RANDOM DATA 


yMEM ADOR, CONST 


RATIO OF REL LOOPS TO EACH SEEK TEST 


1GET RANDOM UNIT # 
PUNIT SIZE MASK 

FUNIT READY 2 

MNO, TRY AGAIN 

1GET RANDOM HEAD 
PHEAD SIZE MASK 

PHEAD ® OK 7? 

1700 LARGE, TRY AGAIN 
1GET RANDOM STARTING SECTOR 
HBECTOR SIZE MASK 
HSELT # OK ? 

1700 LARGE, TRY AGAIN 
1GET RANDOM # OF SEC 
1# SECTORS MASK 
WOON'T ALLOW @ 

HZERO IS ACTUALLY 28 
JENOUGH CORE ? 

INO, TRY AGAIN 

ICHECK TO SEE IF 


STRANSFER WILL CAUSE 
PEND CYLINOER® 





{88335 , MAIN 


@1 
62 
aS 
a4 
a5 
@6 
07 
6 
9 
12 
43 
12 
18 
14 
15 
16 
17 
16 
19 
26 
2i 
22 
23 
a4 
25 
26 
27 
28 
29 
3@ 
34 
32 
33 
34 
35 
36 
v7 
368 
39 
46 


83565 
B1564 
01565 
81566 
01567 
01570 
O1571 
01972 
QL573 
01574 
@1575 
01576 
01577 
016808 
8160) 
01602 
01603 
01606 


01605 
81696 
01607 
o1618 
o1641 
O1612 
@1615 
O1614 
@1615 
01616 
01617 
01620 
61621 
61622 
01625 
#1624 
01625 
O1626 
61627 


81630 
61651 
o1652 
816335 
61034 


814243 REL.St 
080402 
008426 
810244 
820244 
@242i1e 
122434 
Bee774 
182488 
840244 
o10245 
o20245 
024207 
122434 
O80762 
020243 
101224 
200743 


206362 REL,6! 
o2ezad 

1234v2 

e24272 

125005 

vevaes 

1ey220 

125108 

183122 

O24221 REL. 
122432 

000765 

o3o174 

@25056 

645852 

041056 

oe8a4e3 

w@eaee RATION 
90828 C2a3 


182008 
e40172 
686351 
286955 
688776 


OSZ SAVE 

JMP 402 

JMP REL,6 

18Z Savi 

LOA @,S8AVi 
LOA 4,18 
SuBZ4 1,8,82R 
Jm? REL,S 

$uB 6,28 

STA 8,SAVi 
T8SZ SAV2 

LOA 8,SAV2 
LDA 4,LHO 
Subs 1,0,82R 
JMP REL,S 

LOA @,3AVO 
MOVZR @,8,5ZR 
JMP REL.4 


RAND 

LOA 1,C377 
AND 1,8 

LOA 4,EVOON 
MOV 4,4,5NR 
JMP REL,7 
MOVZR 8,8 
MOVL doh 
MOVL 0,0 

LOA $,C283, 
$U8Z4 1,8,S87C 
JmP REL,.S 
LDA 2,UNTT 
LOA 1,CYLT.2 
STA 1,CYLF,2 
S$Ta 8,CYLT,2 
JMP 4e3 

@ 

228 


Jee 
fee SEEK 
Jee 


AOC 8,2 
STA @,HEW 
SEEK 

CKSw 

JMP a2 


#SECTOR COUNT OK) 
ICURRENT SECTo! 


PHEAD OVERFLOW ? 
JNO, COUNT ANOTHER SECT 


4YES, SELECT NEXY HEAD 
PEND CYLINDER ? 


NO, COUNT ANOTHER SECTOR 
1YES8, DONE IF THIS 38 
#THE LAST SECTOR 

) GET ANOTHER RAND w& 


3GET RANDOM CYLINDER #& 


pUSE ALL CYLINDERS 
9CYL # RIGHMY ONE 
1000 BIT TO (C) 
9CY¥L #, O00 OR EVEN 
HIS CYL # < 285, 


INO, TRY ANOTHER & 


PY TOM S*FROMN 
PNEW "TQ" 


HSEEK NEW CYLINDER 
PERROR, CHECK SWITCHES 
+LOOP ON IT 


10834 ,MAIN 


@1 
2 
83 
G4 


61635 
61636 
01637 
01646 
2164) 
01642 
01645 
@1644 
016045 


01046 
@1647 
61658 
81651 
61652 
01653 
Q1654 
@1655 


01656 
61657 
01660 
01664 
01662 
816695 
@1664 


81665 
61666 
01667 
01078 
@1673 
01672 
O16798 
@1674 
@1675 
01676 
01677 
01780 
€1701 
6172 
01783 
61764 


182808 
840172 
020247 
640250 
220258 
040247 
206358 
o80355 
080774 


820272 
181805 
0eeau6 
182008 
v4ei72 
206351 
686555 
000776 


182000 
640172 
820252 
640247 
086347 
886355 
000774 


o26272 
101004 
@08416 
014736 
00454 
e20221 
6487335 
Q20475 
640277 
006315 
002174 
820562 
o423544 
842545 
020267 
040257 


eREOE 


jee 





Jee WRITE DISK 


Jee 


AUC 8,@ 

STa @,4SW 
LOA @,RANDOM 
STA @,RELRAN 
LOA 8,RELRAN 
STA @,RANDOM 
WRITE 

CKSw 

JMP ,04 


LD& @,EVOUDN 
MOV 8,@8,SNR 


pSAVE BEGINNING OF 
PRANDOM NUMBERS 

PRESET RANDOM NUMBERS 
HFOK LOOPING 

IGEN DATA & WRITE 
PERROR, CHECK SWITCHES 
HLOOP ON If 


VIF TwO COMPUTERS, SEEK AGAIN 


JMP yRED PONLY ONE 

AUC 0,2 

STA @,H8W 

SEEK PSEEK SAME CYLINDER 
CKSw PERROR, CHECK SwITCM CONTROL 
IMP 02 HLOUP ON IT 

Jee 

Jee READ DISK 

Jee 

ADC @,@ 

STA @,H8W 


LOA @,RELRAN 
STA @,RANDOM 
READ 

CKSw 

JMP ye 


PSET RAN # GEN FOR THE 
PREAD CHECK 

FREAD AND CHECK DATA 
FERROR, CHECK SWITCHES 
yLOOP ON IT 


TCHECK ENDING FOR TERMINATION 


LOA @,EVOON 
MOV @,8,SZR 
JMP REL,S 
O8Z RATIO 
JMP REL,S 
LDA @,C285, 
STA 8, RATIO 
LDA @,ALo7 
STA @,OADAT 
OOALL 

DAX, 

LDA @, IRAN 
STA 8, @IRLAT 
STA B,@IWDAT 
LDA @, BUFF 
STA 8,CA 


1IF TwO COMPUTERS 00 
PNOT RUN SEEK EXERCISER,, 


PRATIO OF REL, LOOPS TO SEEK TEST 
9NO SEEK TEST YET, 

ISEEK CHECKER TIME} | 

PREPRESH RATIO COUNTER 

HGET AODRESS OF DATA GENERATOR 
PSTORE FOR WRITE & READ SUBR, 

y00 YF FOR EACH DISK 


PRELOAD FOR CELLS REENTERING 
PRELIABILITY, 


16035 ,MAIN 


8} 
2 
88 
a4 
es 
6 
Q7 
68 
eo 
10 
1% 
12 
13 
14 
15 
16 
17 
16 
19 
20 
ai 
22 
23 
a4 
25 
26 
27 
26 
29 
38 
33 


61785 
v1706 
01787 
@1730 
O17 a4 
Bi712 
61715 
01744 
1715 
@1716 
O1717 
61726 
e1721 
01722 
01723 
O1726 
01725 
01726 
O1727 
G1730 
1733 
017392 
817335 
OL734 
1735 
01736 
017387 
01742 





620177 
101085 
000482 
200441 
014448 
808627 
e86325 
086524 
@062595 
0204281 
246437 
002428 
014435 
662416 
886325 
@06324 
96253 
e3eea5 
225028 
125205 
080410 
e15203 
080406 
066277 
035004 
881480 
881752 
001821 


REL 83 


REL GE 


COyKs 


LOA @,RALL 
MOV 8,8,SNR 
JMP 462 

JMP RELD 
O8Z CRALL 
SMP RELeS 
PCRLF 
MESSAGE 
M8G44 

LDA @,COLK 
SYA @,CRALL 
UMP @COLKel 
O$Z CRALL 
JMP @COLKet 
PCRLF 
MESSAGE 
M8G41 

LOA 2,48 
LOA 1,8,2 
MOV 1,14,SNR 
UMP RUNALL 
DSzZ 3,2 

JMP RUNALL 
INTOS 

LOA 3,4,2 
JMP 8,3 
1eaeu, 

RELL 


SIN REL O00, REL EVN @ REL MODE, 
HIN RUN ALL MODE, 
HCOUNT DOWN # REL LOOPS 
yAND LOOP, 

U 

’ 

r*pass" 

PRELOAD THE 

PRELIAB, LOOP COUNTER 
PMORE RELIABILITY 

PRUN ALL MODE 

900 532 LOOPS ONLY 


I"PASS*" 


1@836 ,MAIN 


i 
22 
iB) 
a4 
63 
a6 
87 
86 
as 
16 
ts 
t2 
io 
14 
15 
16 
17 
18 
is 
20 
21 
22 
20 
24 
25 
26 
27 
26 
29 
38 
33 
32 
33 
34 
35 
36 
37 
36 
39 


@1741 
01742 
017438 
01744 
01745 
01746 
61747 
61758 
O1751 
01752 
017583 
B1754 
61755 
01756 
01787 
81768 


01761 
01762 
81763 
@1764 
@1765 
01766 
01767 
61778 
O17714 


01772 
O1773 
01774 
01775 
01776 
01777 
02088 
82081 


026254 
B40414 
040177 
0304156 
o5@412 
Q18411 
o22410 
181065 
222407 
6468277 
ee6sis 
082042 
oee77% 
080080 
Ceedes 
001518 


OG176i 
065743 
005744 
005747 
685752 
885768 
005465 
268088 
005765 


020777 
040277 
0806515 
O62174 
Ce6325 
006324 
086255 
OOB77% 


RUNALL? 


Rell 


CRALLS 
Papo! 
Raovs 


Ads 


DAKSKS 


RHETERAATATRHTAHERAHAHERHEREEHAEEH NETH AHORTHEED 
eennenn RUN ALL YESTS eueaees 
PTOEOTTTTITITITITICLI TEE eerie icici i 


PRUN ALL DISK ADDRESS PATTERNS 
PTHEN RUN RANDOM EXERCISER FOR & 
PWHILE, THEN REPEAT 


LOA @,,280MS 
STA 6, CRALL 
STA O,RALL 
LOA 2,Alos 
STA 2,PA0D 
¥9Z PADD 
LOA 8, @PADU 
MOV @,@,8NR 
JMP @RADO 
STA @,QADAT 
OOALL 

DAT, 

JmP RS 

a 

@ 

RELALL 


100 DISK ADDRESS 
HTEST FOR EACH PATTERN 


e 
ZEROS 
ONES 
PATS 
FL’ 
FLZ 
RAN 

V 
CYLAQ0 


LOA Oy,et 
STA @, DADAT 
OOALL 

OAX, 

PCRLF 
MESSAGE 
MSG4i 

JMP DAXSK 








10837 


Qi 
G2 
3 
4 
@5 
a6 
a7 
6 
ey 
ie 
ii 
i2 
13 
14 
15 
16 
17 
18 
iv 
20 
21 
22 
20 
24 
25 
26 
27 
26 
29 
38 
34 
32 
38 
34 
35 


82002 
02803 
02004 
02005 


02006 
02007 


o2e018 
2041 


@20132 
020138 


o2e14 
@2015 


@2816 
62017 
82020 
02021 
62022 
02026 
w2e24 
02025 
82026 
02827 
626350 
0203) 
o20s2 
82035 
@2054 
62035 
02056 
02837 


eMAIN 


020765 
024372 
044247 
O80412 


020755 
880418 


020752 
200406 


020752 
080404 


620751 
600462 


020758 
040277 
060210 
206525 
000324 
666553 
0863525 
0463524 
0060566 
263618 
000777 
660210 
066315 
082048 
06325 
686324 
086253 
088773 


OATRI 


DATiS 


DAT@s 


DATP! 


OATF38 


OATFQE 


Oars 


LOA @6,A145 
LOA %4_RAN 
STA 1,RANDOM 
UMP DATFOet 


LOA B,ALe4 
JMP DATFOe1 


LDA 8,Ai 
UMP DATFOOS 


LOA @,Aje2 
JMP DATF@el 


LOA 8, Aie3 
JMP DATFOeL 


LOA @,Aie4 
STA 8,DADAT 
NJOC TTI 
PCRLE 
MESSAGE 
MSG74 
POCRLF 
MESSAGE 
MS$G75 
SKPON TTY 
JUMP amd 
NIOC TTI 
OOALL 

OAT, 

PCRLF 
MESSAGE 
M$G41 

UMP DAT 


sOISK ADOR TEST 
1SEY RANDOM w&, 
#BASE COUNT, 


I*SET Swda FOR INTERCHANGE," 


P"HIT ANY KEY TO CONTINUE," 


900 IT ONCE FOR EACH 
PREADY DISK 


r "PASS" 


18838 


@1 
@2 
a3 
G4 
@5 
06 
Q7 
6 
eo 
i@ 
i) 
12 
13 
14 
15 
16 
{7 
18 
19 
20 
2k 
22 
25 
24 
25 
26 
27 
26 
29 
38 
3 
32 
38 
34 
35 
36 
37 
38 
39 
48 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
34 
52 
53 
54 
55 
56 
37 
58 
59 


02040 
C2041 
02042 
82043 
@2044 
62045 
02046 
B2047 
e2e5e8 
e205)3 
62052 
626535 
02054 
02055 
62056 
02057 
v2u6e 


e2061 
02062 
02065 
02064 
@2e65 
02066 
02067 
02878 
@2071 
02072 


62873 
62074 
o2e75 
02076 
82877 
02100 
2101 
02102 
02109 
62104 
62105 
02106 
02187 


62118 
O2111 
w2i12 
C2119 
w2ii4 
e2115 
82116 


eMAIN 


654525 
Q74477 
024375 
o20824 
137404 
880403 
1260028 
e2052i 
048455 
044515 
020252 
640257 
026277 
2423544 
042345 
028247 
v4e5ii 


020518 
040247 
1024008 
042506 
842506 
1{e2000 
040172 
286352 
006555 
088776 


o50174 
021056 
041052 
611256 
1014008 
624221 
$2245 
200497 
16208 
040172 
686351 
886355 
000776 


1892400 
040256 
040254 
040300 
e2¢0271 
040255 
640302 


Dat, 


DAY,@3 


DAT,12 





@ 


RECHT EER EER ETE REET HEH EENH TERE HEE EEERTETERHHEL 
werneee DISK ADDRESS TEST weenere 


PORE RPCESERE REPEC E EEE RACRSSCEEE EER EE PEE EEE AG 


WRITE THE ENTIRE DISK, THEN READ, 
DATA PATTERN IN (DADAT), 
OISK ORIVE IN (UNIT). 


STA 3,D0ARET 
READS 3 

LDA 1,C2000 
LDA @,0RD 
AND {,3,S82R 
JMP ed 

AOC 1,1 

LUA @,DWT 
STA @,VATRW 
STA 1,RFLG 
LOA 8,LAST 
STA 8,CA 

LDA @,DADAT 
STA 8,@IRDAT 
STA 8, @IWDAT 
LDA @,RANDOM 
STA @,OQARAN 


LDA @,DARAN 
STA @,RANDOM 
Sus 9,28 

STA @,@FLOL 
STA 3, @FLOZ 
ADC 8,8 

STA @,HSW 
RECAL 

CwSw 

JMP ,=2 


LOA 2,UNIT 
LDA @,CYLT,2 
STA B,CYLF,2 
TSZ CYLT,2 
INC 8,8 

LOA 1,C203, 
$US 1,0,SNR 
JMP OAT,S 
ADC 6,2 

STA 0,1HSw 
SEEK 

CKSW 

JMP 402 


Sus 4,8 
STA 0,4D 
STA #8,SEC 
STA @,CFLG 
LDA 8, $MAxX 
STA @,SC 
STA @,CSC 


PIF SwSet, READ ONLY 
yOIT 5S MASK 
PREAD SUBR ADDRESS, 


PWRITE FIRST 
pR/W FLAG 


HOUFFER ADDRESS 


PUEFINE DATA 
PPATTERN 


+SAVE RANDOM START 


PRESET RANDOM FOR 
PRECYCLE 
VINITIALIZE 
HFLOATING 
PPATTERNS 


HSET HEADER SWITCH 
PRECALIBRATE ORIVE 
VERROR, CHECK SWITCHES 
pLOQOP ON ERROR 


HSEEK NEW CYLINDER 
#TO @ FROM 


1TO*#l @ TO 


HOOQNE, READ OR WRITE 
PSET HEADER SwITCrH 


PERROR, CHECK SWITCHES 
JLOOP ON ERROR 

IBEGIN WITH HEAD @ 
PSECTOR @ 


pMAX # OF SECTORS 
sDUe TO MEM SIZE 


{0859 


61 
a2 
Q5 
oa 
95 
@6 
a7 
as 
Ur) 
16 
14 
12 
13 
14 
15 
46 
17 
16 
19 
20 
2k 
24 
25 
24 
25 
26 
27 
28 
29 
38 
34 
AY 
3d 
34 
35 
36 
37 
36 
39 
42 
44 
42 
as 
44 
45 
46 
47 


e2117 
02328 
2123 
62122 
021323 
e224 
02125 
024326 
02327 
82130 
2131 
2132 
82133 
@23354 
82135 
B2136 
821387 
02140 


w2343 
02142 
G21495 
62144 
02145 
02146 
02147 
e215e 
e2153 
621582 
@2153 
62154 
@2155 
02156 
82357 
02168 
0216) 
02162 
02165 
w2164 
02105 
w2166 
62167 
82172 
62171 
62372 
e21735 


wMAIN 


1@200@ OaT,2: 
¢40172 
020247 
840258 
20258 
040247 
@86558 OATAHWE 
086355 
@08774 
028388 
181004 
086741 
004541 
040254 
044256 
0045396 
o5e8258 
@00757 


610425 Dar,33 
eogaed 

e2eded 

046761 

@Ga714 

@6UA77 OAT. 43 
024035 

107404 

840407 

e24373 

187485 

ae241i 

0243872 

844247 

€82486 

@06325 DAT,S2 
206324 

606445 

063677 

086777 

0088 DARETS 
BUCHER RELGI 
086347 ORDE 
B80550 OwTs 
@BObUA DARANE 
@65751 FLOL) 
685787 FLOZt 


Adc 
STA 
LOA 
STA 
LOA 
STA 
WRIT 
CK Sw 
JMP 
LDA 
MOV 
UMP 
JSR 
STA 
STA 
JSR 
STa 
JMP 


T82Z 
JMP 
LDA 
STA 
IMP 
READ 
LDA 
AND 
dnp 
LOA 
AND 
JMP 
LOA 
STA 
JMP 
PCRL 
MESS 
M966 
MALT 
JMP 
@ 

@ 
REad 
WRIT 
.) 
Ful» 
FLZe 


8,8 
@,4SW 
@,RANOOM 
@,RELRAN 
@,RELRAN 
@,RANLOM 
E 


a4 
@,CFLG 
@,8,82R 
DAT. 
SCNT 

6, SEC 
1,WD 
SCNT 
2,8C 
DAT.2 


RFLL 
OAT,4 
@, ORO 
a,OaTRw 
DAT,@ 

$ @ 
1,Ca« 
@,4,S82ZR 
OaT,S 
1,C2008 
@,4,SNR 
OLARET 
i, ehAN 
4,RANOOM 
@DARET 
F 

AGE 

8 


avi 


E 


i 
1 


ISET THE HEADER SwiTCh 


YSAVE RAN &# POSITION 
HIN CASE OF SCOPE LOOP 
PRESTORE RANDOM & 

9FOR SCOPE LOOP 

PREAD OR WRITE 

PERROR, CHECK SWITCHES 
#L00P ON ERROR 

PEND CYL NOW 7? 


1YES » SEEK AGAIN 
PAOVANCE DISK ADDRESS 
PUPDATE SECTOR AND 
PHEAD, 


#LOOK AHEAD 
1SET NEw SECTOR COUNT 


SOONE WRITE & READ 
PSET TO READ MODE 


11F Swéet BREAK FOR O1SK 
HPACK INTERCHANGE 


HIF SwSat, RESET RANDOM 


P* INTERCHANGE OFSK*" 


{eva 


a} 
Be 
veo 
a4 
a5 
a6 
@? 
8 
av 
ie 
ti 
Le 
1s 
i4 


02174 
@2175 
€2176 
02177 
e220ea 
2201 
@2202 
e2203 
o2204 
022065 
#2206 
02207 
2218 
e2211 
02212 
beets 
2214 
e2215 


5 C2216 


o2217 
e2226 
02221 
02222 


02423 
02224 
@2225 
62226 
02227 
C2252 
e223) 
02232 
02233 
2234 
62255 
o22es6 
@2237 
02248 


5 82241 


02242 
02245 
¢€2244 
g2245 
@2246 
02247 


MAIN 


@54237 
020267 
648371 
182528 
163808 
46207 
1822806 
848763 
020764 
048445 
g26252 
840257 
w20277 
042344 
042345 
182008 
#40172 
102446 
240366 
206352 
800355 
000776 
(@iays 


010566 
O30174 
021056 
8414652 
011056 
101482 
e2422i 
124415 
888433 
102200 
’40172 
Q20551 
06355 
660776 
1424v6 
040256 
e40e54 
0403508 
@20271 
048255 
440302 


PRRITE & READ THE ADDRESS OF EACH CYLINDER INTO Each 
HSECTOR THEREOF TG VERIFY EACH SEEK STROKE 
PPERFORMED ENDS ON THE CORRECT CYLINDER 


DAY,t 


DAx,@8 


DAx,18 


ST& 3,DAXRTN 


LOA @,Ln0 
STA 6, SVLmO 
Su8ZL 0,8 
AOU 8,2@ 

STA O,L NO 
ADC 0,0 

STA @,RFLG 
LOA @,0wT 
STA @,DAXRW 
LDA @,LAST 
STA @,CA 

LDA A,DADAT 
STA @,@IRDAT 
STA 0, @IWOAT 
AUC @,0 

STA 8,4SW 
SUBO 6,8 

STA @,CYLNX 
RECAL 

CKSw 

IMP . a2 

MOV @,@0,SKP 


TSZ CYLNX 
LOA 2,UNTIT 
LDA O@,CYLT,2 
STA %,CYLF,2 
18Z CYLT,2 
INC @,98 

LDA 41,0283, 
SUBM 1,0,S8NR 
JMP DAX,S 
Abc 6,8 

STA 8, H8W 
SEEK 

CKSw 

JMP 402 

Sus 8,8 

STA @,AUL 

STA @,SEC 
STA @,CFLG 
LQA @,SmMAXx 
STa 8,8C 

STA #,C8C 





HSAVE RETURN ADDRESS 


9SET THE R/w FLAG 

WYO wRITE CALL 34'S) 

’ 

WRITE FIRST 

’ 

IBUFFER ADDRESS 

JOATA GENERATOR ADDRESS I8 
FPASSED TO READ 

PAND WRITE SUBROUTINES 


’ 
7SET SWITCH TO PRINT HEADER ONCE 


) 

#CLEAR CYLINDER DAYA TO ZERO, 
PRECALIBRATE THE ORIVE, 

PERROR, CHECK CONSOLE SWITCHES 

wLQUP ON ERROR 

ISKIP THE LOOP INCREMENT ON 18ST PASS 


PING THE CYLINDER DATA 


U 

PPASS YHE "CYLINDER TO" DATA TO 
PN CYLINDER FROM" CELL 

pINC "CYLINOER TO" DATA 

FAC@ INC'O TO NEW SEEK CYLINDER, 
HCHECK (C) OF CYLT FOR BEING #333 


’ 
PLAST CYLINDER OF R/W OPER, 


‘ 

PSET SWITCH TO PRINT NEADER ONCE, 
U 

SERROR, CHECK CONSOLE SWITCHES 
mLOOP ON ERROR 

yNEw CYLINOER 80 

PCLEAR ALL CONTROL CELLS 

PBEFORE READING OR WRITING 

WTHIS CYLINDER, 

IMAX # OF SECTORS 





18041 


G1 
G2 
83 
a4 
5 
@6 
@7 
a6 
a9 
1@ 
il 
{2 
13 
i4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 


02250 
e2251 
02252 
o22535 
w2254 
02255 
02256 
02257 
82260 
02261 
02262 
B2265 
@2264 
62265 


02266 
62267 
02270 
82271 
02272 
02273 


MAIN 


182008 
040172 
086350 
886355 
600776 
02e30e 
{81064 
686744 
084414 
048254 
244256 
004411 
050255 
oea763s 


010780 
688404 
620677 
@48701 
008721 
0860433 


DAx,23 


DaAXRw! 


DAX,.3S8 


AOC 8,2 
SYA 0,HSW 
WRITE 

CKSw 

JMP 402 
LOA @,CFLG 
MOV @,8,8ZR 
JMP DAK, 
JSR SCNT 
SYA @,SEC 
STA 4,HO 
J8R SCNT 
STA 2,8C 
JMP DAX,2 


ISZ RFLG 
JMP ed 

LOA @,0RD0 
STA 8,DAXRW 
JMP OAX,@ 
JMP SPRSK 


' 
NSET MEADER SnITCH 


PERROR, CHECK CONSOLE SwITCHES, 
HL00P ON ERROR 
YTEST THE END OF C¥LINOER FLAG, 


phLAG IS WAVING) DO NEXT CYLINDER, 
yNO FLAG, GO SEY NEXT SECTOR & HEAD 
yaC@ (C) STARTING SECTOR, 

yaCi (C) HEAD ADDRESS, 

960 GET SECTOR COUNT, 

gaC2 (C) SECTOR COUNT, 

#LOQP AND READ OR wRITE, 


PING RFLG TO READ OR EXIT, 
SFINISHED READING 

}SET OPERATION 

yTO READ, 

HAND LOOP, 

IFINISHED ADDRESS WRITTEN, 
160 TO SEEK TESTS, 


18842 


81 
02 
3 
@4 
a5 


a2274 
@2275 
02276 
22277 
02300 


2584 
62502 
02385 
02304 
02385 
@2386 
02587 
82318 


w25ii 
82512 
e2513 
02514 
023515 
82316 
02317 
02920 
o2s2i 
02322 
02523 
62524 
82325 


oMAIN 


654438 
B20302 
846427 
e2e254 
024256 


101402 
838218 
112485 
60B4es 
014420 
080775 
838502 
Ca24a14 


141888 
125402 
830207 
132404 
080778 
0183508 
034406 
vso3e2 
17240¢ 
151400 
ev2esult 
OCLGvL 
080208 


SCNT3 


SC,i! 


SC ,28 


$C 33 


SCRET! 
WURKE 


MOVE BEGINNING SECTOR AND HEAD ADORESS 
FORWARD UY THE NUMBER OF SECTORS IN (C8C), 
IF END CYLINDER SET "CFLG", 


EXIT ~ AC@s NEw SECTOR STARY 
ACi= NEw HEAD START 
ac2s SECTOR COUNT 


STA 3,SCRET 


LOA #,CSC 

STA @,WORK 

LDA 8,S8EC ICURRENY BEGINNING SECTOR 
LOA 1,40 PCURRENT BEGINNING HEAD 
INC 8,8 PSECTel, 

LOA 25148 $CHECK FOR SECTOR OVERFLOW 
SUB @,2,SNR 

JmP SC. POVERFLOW 

O$Z WORK pOONE ? 

JmP S8Cel nO 

Loa 2,CSC sYES, EXIT 

JMP @SCRET 

MOV 2,8 PSECT #2 

INC 1,1 PHEADeS 

LOA 2,L40 

SUB 1,2,S5ZR pHEAD OVERFLOW ? 

JMP SC,2@ mNO 

ISZ CFLG HYES, ENO CYLINDER 

LOA 3,WORK 

LOA 2,CSC 

Sus 3,2 

INC 2,2 

JMP @SCRET 

g 


] 


16843 .MAIN 16244 ,MAIN 


ai Qi 

2 ISUPER SEEK EXERCISER PROVIDES A SEEK SCAN @2 B2S62 w2¥461 STC.12 LUA @,ONSEER IGET DOWN SEEK ADDRESS 
as ISEQUENCE CUNVERGING FROM THE EXTREME OUTERMOST @3 92363 wud473 JSR SUBSEE HSEEK SUBROUTINE 

Q4 PTRACKS OF THE OISK INTO THE ADJACENT TRACKS IN O24 82304 64567 JSR TYMCK ICHECK SEEK TIME 

as PTRE CENTER, ANO THEN DIVERGING AGAIN TO THE EXTREME @5 w2d65 tases JSR ROCYL YCHECK IF WEAGS ARE ON CYLINDER, 
a6 POUTERMUST TRACKS, A READ JTS PERFORMED AT THE @0 623660 v2u2eu4s LGA @,LUPSW YIF WE ARE STILL LOOPING 
a7 TEND UF EACH SEEK TQ VERIFY HEAQS HAVE BEEN 87 82367 101014 MOVA 6,0,SZR }O0O NOT MOVE SEEK COUNTERS 
as PPOSIYIGNED OVER THE CORRECT TRACK, O68 w25S70 HEe706 JmMP STC PPATH IS BETWEEN UP & ON SEEK 
a9 O9 42371 wiG453 1SZ UPSEEK PINCRMY UPSEEK 

$4 823526 222526 SPRSKit LOA B, @INKMSU FSET THE INMIBIT ld 62572 @20452 LU4 W,UPSEEK PANY CRECK (C) FOR NOT 
11 62327 640526 $T4 8,.SEX MESSAGE SWITCH IN 11 w2373 924221 LOA 11,0203, 8 70 313, 

42 82336 020447 £04 8,STC.A yTHe DATA CHECK ROUTINE 12 82374 106415 SuB& #,14,SNK 

13 62531 042523 STA 6, @UNAMSG vAS A SEEK PATH ERROR tS 22575 @buaua JMP STC,2 SFINISHED 1 SCAN SEGUENCE, 
14 twlLL BE DETECTED ON URIVES 14 62376 414445 DSZ DNSEEK WCOUNT DOWN DOWN GEEK 

15 PwITHOQUT ADORESS CHECK 15 62377 weeset STC,AR 441 

16 1AS A DATA ERROR, 16 Y24¢0 244756 JP STC LOOP ANO CONTINUE, 

17 02332 220521 LOA 8, SCANX }GET COUNT FOR # SCANS 

18 62333 2040507 STA @,XTEST 1S$AVE IN SCAN COUNTER 

19 02334 428221 LOA @,C283, 

26 423535 o495u6 STA @,DONSEEK 1,040 DOWN SEEK WITH C343, 

21 02336 014505 OSZ ONSEEK HDECRMT MAKES IT C312, 

22 823537 182448 Sud 4, 

23 82340 040504 STA 8, UPSEEK YLOAD UP SEEK WITM (CYLN)@ ADORESS, 

24 02343 182520 SUBZL 0,2 

25 e2s42 640255 Sya @,8C 

26 82343 220378 LOA 4,C182 1SUBR, SUBSEE WILL SEEK CYLINOER # 

27 02344 8684512 JSR SUBSEE 107 TO DERIVE AN INIT TIME COUNT, 

28 02345 224240 LOA @,OMEGA YAS CONTAINED IN OMEGA, 

29 02546 040477 STA U,BIGSK tPOR YHE BIG SEEK TIME CELL 

36 62347 040477 STA OpLITSK FAND LITTLE SEEK TIME CELL, 

31 42350 220473 LDA 4,ONSEEK 1ALS0 INIT TRE TWO SEEK 

32 82351 040476 STA A, F BIG PADORESS CELLS, "FROM" BIG SEEK, 

33 2382 v4e5u0 Sva 4,7LIT TAND "TOT LITTLE SEEK wW/342 

34 623535 8203878 LOA 4,C102 JALSO INIT TWO OTHER SEEK 

35 02354 040474 STA @,T8IG PAOVRESS CELLS, "To" B16 SEEK, 

30 2355 040474 STA B,PLIT JAND "FROM" LITTLE SEEK W/67 

37 

38 02356 420466 STCt LOA @,UPSEEK ISTART WITH UPSEEK FIRST, 

39 02357 204477 JSR SUBSEE #60 YO SEEK SUBROUTINE, 

48 62360 884575 JSR TYMCK HCHECK THE SEEK TIME 

44 22361 004511 JSR ROCYL 1CHECK IF MEADS ARE ON PROPER CYLINDER, 








10045 ,MAIN 


a4 
62 
63 
G4 
os 
06 
67 
6 
ee 
18 
41 
12 
13 
14 
45 
16 
17 
18 
19 
28 
21 
22 
23 
24 
25 
26 
27 
26 
20 
3o 
31 
32 
338 
34 
35 
36 
37 
36 
39 
40 
44 
42 
4s 
44 
45 
46 
47 
48 
49 
50 
53 
S2 


02483 
02482 
02483 
62464 
02485 
62486 
82407 
02410 
o24aii 


02412 
02415 
B2414 
e245 
@2416 
02417 
02420 
02424 
62422 
62423 
02424 
o2aes 
02426 
02427 
b2438 
02431 
02432 
02438 
02434 
02435 
02436 
02457 
02440 
62443 


02442 
@24438 
02444 
42445 
02446 
02447 
02450 
02453 
624d2 
G2453 
u24asa 
02455 


g14aaas 
eeease 
geQ4e7 
e24e2i 
844436 
814435 
182440 
e4e434 
000745 


026217 
840427 
B2G433 
284441 
084484 
020431 
064456 
064461 
620427 
084435 
084446 
620425 
004430 
004445 
014412 
6027638 
102440 
684423 
004456 
0204290 
042416 
020371 
040207 
082237 


CBB208 
088808 
“80o08 
bOb0RR 
82008 
eOeees 
OHE2K8 
YO0808 
CHORUS 
CeBRE4 
685277 
OAeees 


$¥¢.23 OS8Z XTEST 
IMP .e2 
JMP STC,S 
LDA 1,C285, 
STA 1,O0NSEEK 
O8Z ONSEEK 
SU80 8,8 
STA @,UPSEEK 
JmP STC 


YFINISHED ALL SCANS? 

NO 

YES, GO EXERCISE BIG & LITTLE PATHS 
PREFRESH OCOWN SEEK 


pAND UP SEEK COUNTERS, 
SLOOP FOR MORE SCANS, 


HTHIS SECTION EXERCISES THE SEEK PATHS FOUND TO 


186 BIGGEST 


STC,3! LOA @,C67 
STA 8,XTEST 
LDA @,FBIG 
JSR SUBSEE 
JSR ROCYL 
LOA @, THIG 
JSR SUBSEE 
J8R ROCYL 
LDA @,FLIT 
JSR SUBSEE 
JSR ROCYL 
LOA @,TLIT 
JSR SUBSEE 
JSR RDCYL 
DSz XTEST 
JMP SYC,3¢2 
SUBD 0,2 
JSR SUBSEE 
JSR ROCYL 
LDA @y SEX 
STA 0, @INHMSG 
LOA @,SVLKD 
STA @,LAD 
UMP @DAXRTN 


XTESTS 
DNSEEK3 
UPSEEKS 
BIGSK: 
LITgKs: 
PBYG3 
THyYG3 
FLITS 
TLITS 
SCANXS 
INHMSGS8 SINKS 
eSEXS a 


eGSOEGSe cseoeans 


(SEEK) TIME AND SMALLEST (SEEK) TIMe, 


PRELOAOD # OF SCANS, 

’ 

)GET "FROM BIG" SEEK ADORESS 

PSEEK PATH STARTS FROM "FROM" ADDRESS 


HAND ENDS AT "TO" ADORESS, 
1YME LONGEST SEEK TIME, 


PPATH AND THE SHORTEST 
PSEEK TIME PATH MEASURED ARE 


PEXERCISED HERE AND VERIFIED 
#FOR PROPER HEAD LOCATION, 


KEEP ON TRUCKIN,,, 


PCLEAR QUT SWITCH TO 
PALLOW DATA ERROR REPORTING, 


SAND RETURN, 


10646 


Qi 
02 
83 
04 
@5 
@6 
07 
@6 
9 
18 
13 
12 
is 
14 
15 
16 
17 
is 
19 
28 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
33 
32 


02456 
02457 
02460 
02464 
82462 
2463 
@2464 
02465 
82466 
2467 
02470 


w24a7i 


02472 
02473 
02474 
62475 
02476 
02477 
025a0 
a2501 


e252 


eMAIN 


0544138 
030174 
026856 
045052 
041856 
182000 
040172 
C86551 
886355 
000776 
O824n1 


o5a41e 
e3e174 
825056 
644366 
606347 
e8e4es 
004412 
2404 


CGBB08 


PSPECIAL SEEK SUBROUTINE 


SUBSEES STA 3, ,SEA 
LDA 2, UNIT 
LDA 1,CYLT,2 
STA 1,CYLF,2 
STA @,CYLT,2 
AOC 8,8 
STA 0,4SW 
SEEK 
CKSw 
JMP ,e2 
JMP @,SEA 


SEAS 8 


SREAD CYLINDER SUBROUTIN 
SVERIFY HEADS ARE ON PRO 
IFYELO ON CYLINDER, 
ROCYLS STA 3,,S8EF 
LDA 2,UNIT 
LOA L,CYLT,2 
STA $,CYLNX 
READ 

401 

JSR FTERR 
JMP @,. SEF 


oSEFS ® 





HSET THE HEADER PRINT 
PONCE SWITCH 

pA SEEK ERROR WERE 
IS REPRODUCEABLE IN 
YA TIGHT LOOP, 


E IS CALLED AFTER SEEK TO 
PER CYLINDER BY READING BATA 


9GET UNIT 

PAND CYLINDER "ADDRESS DATA", 
AND REFRESH (C) PATTERN GEN, 
FOR READ SUBROUTINE 

PRETURN TO CALLOLOPFATAL 

960 TO FATAL ERROR SUBR, 
PRETURN 


18847 


a1 

62 
Ue) 
a4 
85 
a6 
a7 
28 
a9 
18 
44 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
238 
24 
25 
20 
27 
28 
29 
38 
33 
32 
3e 
34 
358 
36 
37 
38 
eo 
48 
41 
42 
4s 
44 
45 
46 
47 
48 
49 





02503 
e25ua 
w2505 
w25n6 
02507 
B2516 
o2511 


e2512 
02513 
a25i4 
22515 
025160 
62517 
e252a 
e2521 
w2522 
e2523 
e2n24 
o2525 
e2526 
02527 
e25354 
02531 
2552 
62035 
02534 
62535 
€2556 
02537 
02640 
@2541 
02542 
02543 
02544 
02845 
02546 
o2547 
6255e 


o2651 
62552 


«MAIN 


FCOMPARE SUBROUTINE PERFORMS A LOGICAL 
ICOMPARISON OF (C) OF ADDRESSES In CALLet (ARG.A) 
PAND CALL#2(ARG,B), RETURNS TO CALLS IF ARGMT 8 
Hig > A, RETURNS TO CALLeo4 JF AaB, OR ANB, 


@2/400 GTCOMP! LUA 1,08,98 


629401 
106445 
081403 
122832 
001402 
801463 


054437 
a20204 
1010144 
e8e4ts 
6063825 
dvesea 
006507 
024723 
086323 
086324 
686126 
024716 
O26S25 
686325 
0863565 
088402 
000404 
686352 
008402 
OBBa1! 
074477 
175332 
88RB406 
884481 
063077 
034736 
654776 
206766 
834404 
054773 
082401 


828008 
063077 


FTERRS 


FTERIS 


FTERZ3 


oSEOt 


LDA 8,04,3 
SUHm® @)4,SNR 
sme 3,3 
AUCZH 1,8,SZC 
JMP 2,3 
ume 3,3 


STa 3,,SE0 
LOA @,LUPSW 
MOV 8,0,S5ZR 
JMP 4o13 

JSR @ICKLF 
JSR @IMESS 
MSG71 

LDA %,UPSEEK 
TYPZS 
MESSAGE 
MSG23 

LOA 1,0NSEEK 
TYPZ1i 

JSR @ICRLF 
CkKSw 

JMP 402 

JMP od 
RECAL 

UMP ,e2 

JMP FTERQ 
READS 3 
MOVZL@ 3,3,82C 
JmP FTER2 
JSR oe) 

HALT 

LOA 3, .8EFed 
STA 3,02 
JmP FTERY 
LDA 3, .8EDS} 
STA 3,,05 
JMP @,8E0 


a 
WALT 


PARGMT A 
FARGMT 8B 


#B(aCQ) P>aCact) 
PACAC1) > BC ACB) 


PSAYE RETURN 
HCHECK IF PROGRAM 3S LOOPING 
vIF NOT SET THIS IS 157 ERROR, 


HSEEK ERROR PATH BETWEEN 
1G0 PRINT (C) OF UPSEEK 


ITAB MESSAGE 
#PRINYT (C) OF ONSEEK 


ICKN IF CONSL 8w@ 28 SET, 


NOT SET oe 

HHALT ON 387 LOOP, 

9GET NOP CODE AND USE TO 
PREPLACE HALT FOR REST OF LOOPS, 
PRECALIBRATE LOOP, 

#GET HALT CODE AND 

PREGTORE LOCATION AND 

#THEN RETURN, 


PHOLDS HALT CODE woes 


{6u48 


BL 
Be 
ae 
84 
65 
46 
a7 
a8 
a9 
16 
Mi 
12 
is 
ia 
15 
16 
17 
16 
i9 
26 
21 
22 
23 
24 
25 
26 
27 
26 
29 
38 
34 
32 
33 
34 
35 
36 
37 
36 
3e 
4a 


62553 
42854 
62555 
02556 
02557 
22560 
825614 
62562 
02563 
62564 
02565 
#2566 
02567 
02570 
02571 
82572 
02573 
02574 
@2575 
02576 
02577 
22680 
e2001 
82602 
02603 
62604 
02605 


w2606 
a2007 
02610 
@2611 
02612 
62633 


eMAIN 


PSYUBROUTINE WHICH IS CALLED IMMEDIATELY AFTER 
7SEEK AND CRECKS TIME COUNT IN QMEGA FOR 
}> COUNT STORED IN BIG8K OR < COUNT IN LITSK, 


054433 TYMCKS 
084727 
o8u24e 
042445 
Onda 
a2424¢ 
Q44664 
080176 
425056 
044664 
025052 
0486604 
BA47i4 TYM,i8 
200242 
002446 
101894 
200412 
o2a2aa 
125015 
080487 
@44647 
@30174 
025056 
044659 
@25052 
044645 
@B2401 TYM,28 


680808 ,SEBS 
COGBGe SQIKis 
054777 FMUNITS 
182448 

840173 

oae4as 


STA 3,,5E8 
JSR GTCUMP 
OMEGA 

B1GSK 

SMP TYM,! 
OA 1, OMEGA 
STA 4, 8XGSK 
LDA 2,UNIT 
LDA 1,CYLT- 2 
STA 1,TBIG 
LDA L,CYLF,2 
STA 1,F8IG 
J8R GTCOMP 
OMEGA 

LiTsK 

MOV#® @,8,SKP 
JMP TYM,2 
LDA ty QMEGA 
MOV# 1,4,S5NR 
JMP TYM,2 
STA 1,LITSK 
LOA 2, UNIT 
LDA 1,CYLT,2 
STA %,TLIT 
LDA t,CYLF,2 
STA L,FLIT 
JMP @,SEB 


@ 

V] 

STA 5,SuIK) 
$u80 0,0 
STA @,CSIF 
IMP CMOSTS2 


PUREATER TRAN COMPARE SUBROUTINE, 
PARGMT A FOR SUBROUTINE 

PARGMT & FOR SUBROUTINE 

BPA RETURN 

7A>p SO STORE 

POMEGA IN BIG SEEK, 


YAND LOAD "TO" CYLINDER ADDRESS 
HINTO "To" BIG SEEK CELL, 

PANU "FROM" CYLINDER INTO 
r"FROM" BIG SEEK CELL, 

3G0 COMPARE 

OMEGA WITH 

SCONTENTS OF LITTLE SEEK, 

pB>A RETRN, STORE OMEGA 

PAPKR RETURN, SO EXIT, 


300 NOT STORE A @, 
HFOR VALUE OF LITTLE SEEK, 
DSTORE OMEGA IN LITTLE SEEK, 


HLOAD "TO" CYLINDER ADORESS INTO 
P"vO" LITTLE SEEK CELL, AND 
P°FROM" CYLINDER ADDRESS INTO 
PYFROM" LITTLE SEEK CELL 
PRETURN, 


HCLEAR OUT COMMAND 
STRING INTERP, FLAG, 
VSPECTAL ENTR, FOR UNIT @, 


}@049 ,MAIN 


4 
02 
as 
04 
65 
a6 
07 
e8 
ae 
1@ 
ia 
12 
is 
14 
15 
16 
17 
18 
io 
20 
ai 
22 
25 
24 
25 
26 
27 
26 
29 
30 
3i 
32 
38 
34 


@2014 
02615 
02616 
02617 
02020 
62621 
62622 
02629 
62024 
02625 
02626 
62027 
02638 
62681 
02632 
62635 
02034 
@2655 
@26356 
62637 
82648 
2641 
@2042 
62045 
02644 
B2045 
02046 


006324 
086256 
162528 
040173 
660218 
0602353 
086325 
6G6324 
686059 
006331 
00261 
6Ge422 
102408 
040575 
6866327 
125064 
060768 
024824 
122452 
@88755 
@40174 
161803 
080752 
824173 
125005 
002742 
020403 


QUESTS 


CmMDSTt 


LPR RREREREERE ERE EER ER ERE EERE ERE EERE REE EEE EEE ES 


eerere 


COMMAND STRING INTERPRETER 


eneee 


CHOSE HEHHEHEHEEEHRESHOEEHOREEHEEEREREEHEHHEEEEREREe 


GET COMMAND STRING PARAMETERS 


PUNIT SELECT 
MESSAGE 
MSG43 

SUBZL @,8 
STA 8,CSIF 
NIOC TTZ 
NIOC ,O8KP 
PCRLP 
MESSAGE 
MSG37 

INPUT 

use 

JMP CMD,2 
SUB 2,0 

STA @,RDYUNT 
GETATM 

MOV 1,1,8ZR 
JMP QUEST 
LOA 1,64 
SusZ# 1,8,SZC 
JMP QUEST 
STA @,UNIT 
MOV @,@,SNC 
JMP QUEST 
LDA 3,CSIF 
MOV 1,1,8NR 
JMP OSGIKL 
JMP CMD,2 


} o%e 
pSET THE CSI FLaG 


CLEAR TTI FLAG 
ICLEAR DISK GARDAGE 
P"UNTTS & 

paCCEPT INPUT 

HSAME AS LAST TIME 
pCLEAR ALL UNITS 
pACQaaw ACL SNAME 
tNAMES NOT LEGAL 
PUNIT #23 


HMORE LEFT, ERROR 





{0898 


Oi 
02 
VR) 
04 
a5 
06 
o7 
“ad 
9 
18 
14 
12 
id 
i4 
15 
16 
17 
18 
i9 
26 
2% 
22 
23 


02647 
02656 
02651 
w205e2 
62653 
02654 
62655 
62656 
82657 
62660 
62061 
@2062 
62665 
@2064 
82665 
82666 
62667 
02678 
B2073 
82672 


o MAIN 


086324 
006256 
806325 
obo324 
686097 
006331 
oou261 
060445 
Q06327 
125065 
o004ai2 
e8os26 
005726 
BOb769 
025007 
046344 
040345 
121005 
00756 
ese431 


CMD.2! 


yOaTA SELECT 


MESSAGE 

MSG43 t fe 

PCRLF 

MESSAGE 

MSG618 P"DATAB # 

INPUT paCCEPT INPUT 

UBP 

JMP GCS #SAME AS LAST TIME 
GETATM 

MOV 1,%,SNR 

Jap CHO,3 JNO NAME, MUST BE @ 
SEARCH PSEARCH NAME TABLE 
DONT 

JMP CMD, 202 pNOT FOUND 

LDA 1,ONT.1*DNT,2 

STA 1, 0]RDAT 

STA 1, @2WLAT 

MOV @,@,SNR 

JMP CMD, 202 ONO CR FOLLOWING NAME 
JMP GCS #GET COMMAND STRING 


10851 MAIN b@¥52 MAIN 

ai 8. 

02 82673 824263 CMO.38 LOA 1,VARST 2 FREAD COMMAND 

@S 22674 044028 STA 1,10x@ as 

O04 82675 042028 STA 8, @10x8 @4 22745 181002 RE: MOV @,8,82C 

@5 62676 624208 LOA 1,TERM @5 w2746 wen776 JMP CSER ¥CR TERMINATOR ILLEGAL 
Q6 62677 1259804 MOV 4,121,528 86 02747 086330 GETPAR FGET R/W PARAMETERS 

O7 2706 VHEsy6 JmMP CmMD,S5 @7 B2750 w20258 LOA @,RELRAN PSET RAN # BEGIN 

@8 82701 @86327 CMD,48 GETATM @8 62791 040247 STA @,RANDOM 

O# ©2782 126004 MOV 1,1,82R O98 w2752 “8037 READ HREAD AND CHECK DATA 

16 62703 e0H744 JMP CMD, 202 #NAMES NOT ALLOWED {@ @2753 006355 CKSwW PERROR, LUOK AT SWITCHES 
11 02704 242028 STA @,@#10xa8 11 02754 080774 IMP awd #LOUP ON ERROR 

12 82705 181802 MOV @,8,S82C $2 02755 wa2e26u REG! LOA 2, TERM 

13 62786 680418 Jme CmO,5S 13 02756 121804 MOV 9,8,8ZR 

14 02787 020264 LOA @,VAREO 14 62757 4806357 JMP CMOST PALL DONE 

15 62716 24620 LUA 1,10K@ 15 02764 080751 dmMP GCS,1 PGET ANOTHER COMMAND 

16 02711 122434 SUB 1,0,5ZR 16 

17 Q2712 980767 JMP CMD,4 17 PWRITE COMMAND 

18 82715 666525 PCRLF 16 02761 101802 Wr MOV 0,0,8ZC 

19 62714 weosad MESSAGE 19 862762 808760 JmP CSER 9CR TERMINATOR ILLEGAL 
20 02715 206074 MSG20 20 02765 006332 GETPAR GET R/W PARAMETERS 

2% 21 62764 820247 LOA @,RANDOM #SAVE BEGIN OF RANOOM 

22 82716 4620820 CMO,5! LOA 8,108 22 82765 640256 STA @,RELRAN PNUMBERS IN CASE OF LOOP 
23 62717 640265 STA 8, VARSP 23 62766 020258 LDA @,RELRAN PRESET RAN # BEGINNING IN 
24 02728 8203354 LOA @,IVAK 24 42767 046247 STA 8,RANDOM yTME SCOPE LOOP 

25 62721 042344 STA @,@3ROAT 25 82770 866550 WRITE #GENERATE DATA AND WRITE 
26 02722 242345 STA @,O@.WDAT 26 02771 086355 CKSW PERROR, CHECK SWITCHES 
27 27 w2772 888774 IMP ,od4 yL00P ON ERROR 

26 28 82773 088762 JMP REL 

av 

36 FGEY COMMAND STRING 

31 

32 027235 86325 GCsI PCRLF 

33 02724 066324 MESSAGE 

34 42725 ev6ees MSG19 P*COMMAND STRINGS * 

35 02726 446331 INPUT paCCEPT INPUT 

$6 02727 oBe262 CSBP 1CMO STR BYTE POINTER 

37 82730 e80401 JMP ol SSAME AS BEFORE 


36 827381 63718 GCs,it SKPOr TTI 


3H 62752 O26664 JMP CMOST HINTERRUPT CMD BTRING 
48 02733 162800 AOC @,@ 

41 927394 o40172 STA B,H8W 

42 02735 006327 GETATM ILINCTSBYTE POINTER 
43 02736 2806526 SEARCH 

44 02737 085711 OUT PNAME IN AC} 

45 62748 860402 JmMP CSER SNOT FOUND 


46 82741 065007 JMP ODCT, L°D0CT, 290ISPATCH 


47 

48 22742 @a6S24 CSERS MESSAGE ICOMMAND STRING ERROR 
49 82743 v26256 MSG43 } ate 

8 @2744 B@e757 JMP GCS 








@ ° : } j * © 


$0053 ,MAIN $8854 ,MAIN 


@1 @1 

2 PSEEK COMMANDO G2 } CHOTA RETR TREE HEH ATE THERE RHE NHEOHEO HEHEHE 
as as } wueee DISK RKANDLER SUBROUTINES eevee 
Q4 62774 181002 SK: MOV @,@,$82C 04 } CORRE TERT HERO HHRATEHTEN ENTE TH CHET OONHOTHEREHEe 
@5 02775 vuou74s JMP CSER 9CR TERMINATOR ILLEGAL os 

G6 02776 086327 GETATM 9GET CYL # IN AC® Or) PRECALIBRATE 

O87 82777 1525628 SUBCL 2,2 a7 PRETURNeL FATAL ERROR 

68 Q5e00 o5a260 STA 2,TERM 08 PRETURN@S NORMAL 

9 @3e01 125004 MOV 1,1,S8ZR Oy 

10 3802 6807428 JMP CSER PNAMES ILLEGAL 16 83845 054276 RECLS STA 3,RWRET 

11 @3803 030174 LDA 2,UNIT 11 63446 102428 $U8 6,8 HSET THE PROGRAM MODE 
12 83004 025066 LDA 1,CYLT.2 70 » CYL & 12 83847 0462603 STA @,MODE 

13 03005 045052 Sva 1,CYLF,2 yT0 BECOMES FROM 13 o3e5e 030174 LDA 2,UNIT 

14 83806 041056 Sta @,CYLT,2 9SET NEw TO 14 Bde) 221426 LOA @,UNTINS,2 

15 03887 286351 SEEK 100 TRE SEEK 15 @5852 63235 DOCC 0,,08KP SELECT UNIT 

16 @3e1e @86355 CKSw PERROR, LOOK AT SwyTCHES 16 83053 620427 LOA @,C14028 

17 @3ei11 800776 JMP ,22 #00P ON ERROR 17 63054 b633535 DOAP 0,,D08KP PRECAL 

16 3812 880745 JMP REY 18 83855 021956 LDA @,CYLT,2 

ty 19 63856 441952 STA O,CYLF.2 TO = FROM 

2¢ PRECALIGRATE 2@ 03857 122000 ADC 8,8 

2k 21 63862 041866 STA 8,CYLT,2 

22 G3CiS 182562 RCL? SuBCL 8,28 22 632603 v2ed20 LDA O,RCTYM 94 SECOND TIMER 

23 83014 0408268 STA 2,TERM PSAVE (C), IeTERM 23 83862 2863542 JSR @wAT WAITING FOR INTERRUPT 
24 63¢15 086352 RECAL PRECALIBRATE 24 3065 181811 SKIP 

25 63816 286355 CKS8w JERROR, CHECK SwITCHES 25 03064 Bweuand JMP ,o4 

26 83817 @88776 JP ie? tLOUP ON ERROR 20 835865 o30174 LOA 2,UNIT PRECAL TIMEQUTS ARE 
27 o3026 032174 LDA 2,UNIT PINCRMT CYLN TO @ 27 83066 211162 182 SKYMO,2 HCOUNTED HERE 1} 

28 0582) 811056 18Z CYLT,2 JON RETURN FROM RECAL 28 83067 882276 JMP @RWRET ITIMEOUTI LL 

29 83022 Beu4dei NOP 9FOR CMMD STRING INTERP, 29 43074 025032 LOA 1,UNTDN,2 PRECAL INT, RETURN 
36 83023 680732 JMP REY 34 63871 1874¢5 AND 8,1,SNR 

33 3i 63072 082355 PSTAT JNO DONE STATUS 

32 400P 32 83075 124208 Com 1,1 

38 33 63074 2342358 LOA 3,CSPi 9177677 

34 03024 G2b262 LUPI LOA @,CS8P PRESET THE COMMAND STRING 34 83075 1674020 AND 3,1 

35 035025 3848255 STA O,LINCT +BYTE POINTER 35 03876 187404 ANO @,1,S82ZR 

SO 83826 102008 AOC 8,8 ISET THE HEADER FLAG 30 83877 902353 PSTAT BAD STATUS 

37 83027 040172 STA @,H8W 37 83100 800557 JMP GENRET 

$8 OS85Se BB0781 JMP GCS,1 38 83181 666236 RCTYM$ ,4KMS 

sy i 39 BW3S1G2 241488 Ci4ee@s 1480 

40 HOELAY 

43 

42 03031 1801002 DLaYs MOV @,8,82C 

43 63832 0280710 JMP CSER 

44 630353 086327 GETATM #GET DELAY «@ 

45 03034 125005 MOV 1,1,SNR 

460 039055 191062 MOV @,8,SZC PNAMES JLLEGAL 

47 63036 800704 JMP CSER MCR TERM IS ILLEGAL 

46 8358357 126520 SuBZL 1,1 pOELAY COUNT OF 8 NOT 

49 030408 123008 ADO 1,@ PERMITTED, 

5@ 03841 046402 STA 0,492 

51 w3ed2 YO6316 DELAY 

52 05045 B800uR @ 

53 03044 BAO665 JMP GCS,1 


54 





10855 ,MAIN 


81 
Ge 
a3 
a4 
as 
06 
a7 
88 
eo 
16 
44 
12 
{3 
ia 
15 
16 
{7 
18 
19 
20 
21 
22 
20 
24 
25 
26 
27 
26 
29 
3@ 
3) 
$2 
38 
34 
38 
36 
v7 
38 
39 
40 
43 
42 
4s 


O3183 054276 
63104 182528 
v3iss v4eaus 
¥31@6 w3ei74 
w3107 vain26 
O3114 263233 
O3111 021056 
oSti2 024225 
O3119 123008 
@3314 BO1333 
B3115 811066 
¥3116 e0e4a2 
e3si7 eisaee 
B312e vevast 
@3121 eeoSet 
w3122 121011 
U3123 wdedud 
63224 oS0174 
w3i25 o11162 
03126 202276 


03127 225032 
OS130 367495 
@3131 800487 
O3iS2 124008 
635153 2342350 
O3154 167408 
OS155 107404 
B3156 O80402 
83137 686528 


03340 024215 
O314) 107404 
Side 611872 
03145 882555 
G3144 63877 
o5145 380488 


oSEEKI 


SE, it 


C4ae3 


HSEEK SUBROUTINE 
TRETURN®S NORMAL 


PRETURNSS FATAL ERROR 


STA 3,RWRET 
SuBZL 6,8 

STa @,MOQDE 
LDA 2,UNIT 
LOA 8, UNTING, 2 
OOCC @,,0SKP 
LOA 8, CYLT,2 
LOA 1,01808 
Avo 1,8 

OOAP BW, ,OSKP 
1SZ SEEKT4,2 
JMP ,o2 

18Z SEEKT,2 
NOP 

INTHT 

SKIP 

JMP 404 

LOA 2,UNIT 
1SZ SATHO,2 
JMP ORWRET 


LDA 4,UNTON,2 
ANODW 6,4,5NR 
JmMP SE,t 

COM 1,1 

LOA 3,C8P} 
AND 3,1 

AND 8,3,SZR 
JMP SE.4 

JMP GENRET 


LDA 1,042 
AND @,4,S2R 
ISZ SEKER,2 
PSTAT 

HALT 

400 


ISEY THE PROGRAM MODE 


HSELECT UNIT 
1CYL w# 


PSEEK}3 
YCOUNT SEEKS 


HOOUBLE PRES, 


PWAIT FOR INTERRUPT 


PINCRMT THE SEEK 
HTIMEQUTS COUNTER 34 


ITIMEOUTI SI 


PINTERRUPT RETURN AC2SUNIT 


paAC@ ® STATUS 


PIMPROPER DONE STATUS 


1477677 


HWRONG STATUS 


JSEEK ERR 27 


FLOUNT SEEK ERRORS 





{O856 ,MAIN 


Qi 
Ge 
63 
a4 
a5 
86 
a7 
a8 
a9 
ig 
11 
12 
16 
14 
15 
to 
17 
16 
1y 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
34 
34 
32 
33S 
34 
36 
3o 
37 
36 
$y 
46 
ai 
42 
43 
44 
45 
46 
47 
48 
ay 
52 
54 


0b146 
65247 
83198 
o3i51 
03352 
03153 
d3156 
63155 
3106 
83157 
o3160 
O3161 
83162 
03169 
83164 
03168 
63160 
03167 
03170 
3171 
3172 
0373 
03474 
03175 
03376 
€3177 
03280 
o32a1 


63202 
03285 
03204 
03205 
v3200 
03267 
o32ie0 
weld 
“3212 
@3213 
o3214 
@5215 
w3216 
#03217 
03220 
63221 
63222 


683106 
054276 
026776 
2485114 
20211 
248205 
182080 
046273 
046274 
182400 
e462b2 
6403567 
v20255 
64031 
€@65S82 
@8eae8 
060356 
OSG174 
21956 
6246754 
123808 
B61833 
€86561 
181041 
VBO4dEd 
030174 
041166 
082276 


sasris 
000476 
€24232 
187404 
O8B473 
624025 
1674404 
660472 
261433 
024255 
1253660 
034257 
167888 
125407 
1259408 
140434 
@eudas 


eWRITES 


WOATAL 


TWRITE SUBROUTINE 
PRETURN@3, NORMAL 
TRETURNOS, FATAL ERROR 


WOATASL 

STA 3,RWRET 
LUA @,,WRITE*S 
STA 8,RLUP 
LOA @,03 

STA 0, MODE 
ADC 8,2 

STA B,AECNT 
STA 8,CHCNT 
SUB 2,8 

STA @,FATAL 
STA 8,NO,BS 
LOA @,SC 

STA #,,8C 
GEN 

@ 

SETP 

LDA 2,UNIT 
LOA B,CYLT,2 
LOA 1,Caae 
ADO 1,8 

DOAS ¥,,08KP 
INTWT 

SKIP 

IMP 44 

LDA 2,UNIT 
ISZ RWTMO,2 
JMP @RWRET 


MOVL@ 8,8,SNC 
JMP RE,1 

LDA 1,C8PS 
ANU 8,1,S2R 
JmP REAL 

LOA 1,Ci8 
AND @,1,S2R 
JMP REQ? 

O18 @,,0S8KP 
LOA 1,SC 
MOVS i,% 

LOA 3,CA 

ADD 3,1 

Inc 1,3 

INC te 

SUB @,1,5ZR 
JMP WEel 


PRETRY ADORESS 
PSET TME RETRY ADDRESS 
HSEY TRE PROGRAM MODE 


JCLEAR PATAL PFLAG 
HCLEAR BAD SECTOR COUNTER 


te SECTORS YO XFER 


BADOR OF DATA GEN ROUT 
PSET PARAMETERS 


PWRITE 
WATT FOR INTERRUPT 


PINCRMT THE READ/WRITE, 
HTIMEOUTS COUNTER }1 
HTIMEOUT 


PINTERRUPT RETURN 
INO R/W DONE FLAG 
1877666 


HFATAL STATUS 


PADDRESS ERROR 
PREAD MEM ADOR 
HSECTOR COUNT 
PwORD COUNT 
PSTARTING ADORESS 


PADUReWC SHOULD EQUAL 
#THE ENDING ACDRESS 
FERROR 


1@857 ,MAIN 


G2 832238 
@3 03224 
G4 wS225 
@5 93226 
Q6 03427 
87 83230 
868 03231 
@9 03232 
10 832385 
1% o3234 
12 63235 
13 03236 
14 63237 
15 3240 
16 0324) 
17 03242 
18 #3243 
19 w3eda 


21 03245 
22 63246 
23 83247 
24 03250 
25 83251 
20 03252 
27 03253 
28 03254 
29 85255 
Se 03256 
31 63257 
32 83260 
33 63264 
34 03262 
35 83263 
30 63264 


38 83265 
39 03266 
40 03267 
4) 03276 
42 03271 
43 83272 


45 03275 
46 83274 
47 032@75 
48 03276 
49 63277 
5@ ¥ds0e 


020255 wit 
040382 
086356 
1@1e8e4 
000404 
020218 
124468 
124008 
638174 
035826 
1253808 
167002 
185120 
185128 
187800 
0624353 
106414 
o6e427 


o2e2d5 wos 
181508 
e25102 
167022 
811876 
066484 
w451062 
026202 
101004 
82276 
B2@204 GENRETS 
101004 
602276 
010276 
010276 
482276 


w84550 Wei 
086324 
30174 
w11156 
w1e202 
@BB731 


000542 WE 2! 
606433 
e3e174 
O11156 
wre2ee 
000745 


LOA @,8C 

STa @,C8C 
JSR OISCNT 
MOV @,8,SZR 
JMP 404 

LOA @,LS 

NEG 1,1 

Com 4,1 

LOA 2,UNIT 
LOA S,UNTINS,2 
MOVS iff 

ADU 3,1 
aD0Z, 8,8 
ADDZL 8,86 
40D 6,1 

DIC 8,,DSKP 
SUBe 6,1,8ZR 
JMP WEL? 


LOA 8,8C 

MOVS 8,0 

LOA 1,WDSW44d,2 
ADDZ 6,3,82C 
T8Z wOSw,2 

NOP 

STA t,WOSWed,2 
LOA @, FATAL 
MQV @,8,S8ZR 
JMP @RWRET 

LOA @,LUPSW 
MOV @,0,S2R 
JMP @RWRET 

T8Z RwRET 

18Z RWRET 

JMP @RWRET 


JSR Swe 
48657 

WOA 2,UNTT 
TS8Z MISC,2 
TSZ FATAL 
SMP awl 


JSR SwCe 
MSGO7 

LUA 2,UNTIT 
TSZ MISC,2 
ISZ FATAL 
UMP .W2 


HFIND ENDING OF3K 
sADDRESS 

PACOBSECT, ACL BHEAD 

HIF THE SECT & @ THE LAST 
HICK MEAD O10 NOT OCCUR 
9SECT @ LaST SECT 

HHEAD ef 


HFORM THE ENDING OFSK 
PADDRESS AS READ By "OIC" 


# 8ECTeS 

PEXPECTED ADORESS 

pREAD ACTUAL 

PENOING DISK ADDRESS ERROR 


HADD wORDS WRITTEN 
#T0 TOTAL COUNT 


PLOUBLE PRECISION 


PWAS THERE A FATAL ERROR 2 


PRRROR RETURN 
HIS THE LOOP SWITCH ON ? 


PERROR RETRUN 


HNORMAL RETURN 


HENDING MEM ADDR ERROR 
PIDENTIFTIER 


HCOUNT AS MISC TYPE ERROR 
PSET FATAL FLAG 
960 ON 


PENDING DISK ADOR ERRUR 
YCOUNT AS MISC TYPE ERROR 


WSET FATAL FLAG 
1G0 ON 


$8858 MAIN 


@3 
@2 
as 
@4 
8S 
a6 
87 
6 
09 
1a 
ii 
12 
13 
i4 
19> 
16 
17 
18 
19 
20 
23 
22 
23 
24 
25 
26 
27 
28 
29 
38 
33 
32 
38 
34 
35 
36 
37 
38 
39 
48 
41 
42 
46 
44 
45 
46 
47 
48 
49 
58 
51 
52 
58 


833584 
83302 


03385 
03304 
03505 
03586 
23307 
63510 
edsdih 
63312 
03515 
03314 
es315 
3316 
03317 
e352 
O352i 
03522 
633523 
03524 
03325 
03326 


03527 
03530 


8335353 
03552 
6335335 
03334 
03535 
03536 
633837 
83540 
O3341 
03342 
05543 
033544 
03545 
033546 
03547 
8335¢e 
83551 
63552 
03353 
03554 
03555 
03356 
033357 
035560 
63561 


211156 RE,as 
002353 


O06354 RE Zt 
006525 
600324 
660174 
030174 
610273 
080416 
@11126 
028272 RE 208 
1elaed 
202276 
006325 
o80324 
o86363 
a2u250 
040247 
162400 
640201 
062677 
82311 


o1d152 RE 218 
@02276 


edea77 RES 
1osi2e 
185122 
080405 
686554 
066325 
8863524 
040378 
w3ei74 
010274 
088404 
eOL1116 
a10201 
eee 
w11i22 RE, Sis 
610202 
020257 RE, 328 
v65433 
10640e 
026485 
123705 
102520 
0463510 
¥00545 
017400 Ci7ane 


IsZ MISC,2 
PSTAT 


HEADER 

PCRLF 
MESSAGE 
MSG29 

LOA 2,UNIT 
ISZ AECNT 
JMP RE,2! 
18Z ADDER,2 
LOA @,EVOON 
MOV ¥,@,SZR 
JUMP @RWRET 
PCRLF 
MESSAGE 
M8663 

LOA @,RELRAN 
STA @,RANDOM 
$u8 8,8 

STA @, RETRY 
TORST 

JMP ORLUP 


ISZ PADER,2 
JmP @RWRET 


READS @ 
ADOZL 28,0 
ADOZL @,8,982C 
JMP 405 
READER 
PCRLF 
MESSAGE 
MSG64 

LOA 2,UNIT 
18Z CwCn? 
JMP RE,S3I 
ISZ CWER,2 
TSZ RETRY 
JMP RE,S2 
TSZ CWERP,2 
ISZ FATAL 
LOA @,CA 
O18 1,.USKP 
Sus 2,1 

LOA @,Ci74H 
ANDS 13,%,SNR 
SUBZL @,@ 
STA 2,,SC 
IMP ARI 
17406 





HCOUNT AS MISC TYPE ERROR 
PPRINT STATUS & ERR RETURN 


PADDRESS ERROR 


P' ADDRESS ERROR* 


PADDRESS ERROR COUNTER 
#2N0 FAZLURE IN A ROW 
PFIRST FAILURE 

1UF TRO COMPUTERS 
HDON'T TRY AGAIN 
PREADS MAY HAVE MOVED 


PYTRY AGAIN 
PRESET RAN & GEN FOR 
HTHE RETRY 


ICLEAR RETRY SWITCH 
y00 IT AGAIN 


SCOUNT PERM ADOR ERRS 
PERROR RETURN 


HCMECK WORD ERROR 
PIF SwSet DON'T PRINT 


P"CMECK WORD ERROR” 


HCHECK WORD ERR COUNTER 
p2ND ERROR IN A ROW 
JFIRST ERROR 

ISET RETRY FLAG 


ICOUNT PERM CHK WO ERRS 

#SET FATAL FLAG 

HTHE CHECK wORD ERROR MAY 
PHAVE STOPPED THE DATA 
HTRANSPER PREMATURELY, 

HFINOD THE # OF SECTORS 
PTRANSFERRED AND SAVE IT 

FFOR THE DATA COMPARE ROUTINE, 
yIT MUST BE AT LEAST ONE, 





18059 ,MAIN 


84 
62 
Qs 
ba 
05 
66 
07 
oe 
as 
10 
44 
12 
is 
14 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 
20 
27 
26 
29 
3a 
34 
$2 
33 


83562 
63363 
05064 
03365 
63366 
03367 
03378 
O3a74 
03372 
63373 
03374 
03375 
03376 
@3377 


63488 
@34ei 
03482 
03483 
03404 
03485 
03406 
03407 
@3410 
o34i1 
83412 
wsais 
osaia 
wd4i5 
@3410 
83417 
63420 


QSQ174 
020274 
046275 
008422 
o10201 
{Gilded 
000483 
@11136 
602556 
024202 
125004 
O88405 
015316 
088401 


@Ls142 
000527 
015122 
000401 
102400 
040202 
600772 
024202 
125004 
EN 
11152 
0e4a4 
@15122 
aaeaes 
14146 
10202 
008510 








RE, 4! 


RE, 418 


RE, 428 


RE, 433 


RE, 443 


RE, 45% 


RE, 463 


LOA 
LDA 
18Z 
JmMP 
sz 
INC 
JMP 
182 
JMeP 
Loa 
MOV 
JMP 
OS8Z 
JmP 


1sz 
Jue 
087 
JMP 
Sud 
STA 
JMP 
LDA 
MOV 
JMP 
18Z 
JMP 
OSZ 
SMP 
182 
1sz 
JMP 


2,UNIT 
@,CwCNT 
QACNT 
RE,44 
RETRY 
@,8,S2R 
RE,4i 
DATER,2 
eR2 
1,PFATAL 
{4,928 
RE. 43 
CwER,2 


eek 


CwOE,2 
eR2 
CWERP,2 
et 

6,a 

O, FATAL 
RE42 
1,FATAL 
4,4,S2R 
RE.a5 
PDER,2 
RE, 46 
CwERP,2 
aot 
CwOEP,2 
FATAL 
h2 


FOATA ERROR 


TDATA ERROR COUNTER 

12ND DATA ERROR 

PSET THE RETRY FLAG 

PFIRST OATA ERROR 

POATA AND CHECK WORD ERROR 
ynO CHK WO ERR 

160 ON 


s2 CHECK WORD ERRORS 
JONLY 3 CHECK WORD ERROR 
PSKIPS SOMETIMES 


HCOUNT CHK WO & DATA ERRS 
9G0 ON 
POON'T COUNT FATAL CHK wO ERR 


PRESET FATAL ERROR FOR NOW 


#TRy ITT A SRO YIME 
PPATALBNONSZERO IF 2 CHK WO ERR 


JOATA & CHK WO ERR 

POATA ERR ONLY 

y2NLD ONE IS FATAL 
POLSCOUNT PERM CHK WD ERR 


PCOUNT PERM COMBO ERR 
PSET THE FATAL FLAG 
160 ON 


J@86@ MAIN 


Qi 
82 
a3 
a4 
65 
06 
87 
a6 
or) 
10 
ti 
1é 
1s 
14 
1§ 
16 
17 
16 
iy 
20 
23 
22 
23 
24 
25 
20 
27 
26 
29 
38 
31 
32 
33 
34 
35 
36 
37 
38 


634ei 
3422 
03423 
03424 
03425 
03426 


63427 
03438 
03431 
63482 
63433 
05454 


03435 
63436 
63437 
03449 
03444 
03442 
03443 
63444 
03445 
b3446 
63447 
03458 
03451 
@3452 
03453 
03454 
63455 
03456 
63457 
uds46e 


OB44i4 
6e6s24 
030174 
013156 
¢L16202 
eOasit 


604406 
806431 
@30174 
@11156 
Q182K2 
286540 


e544e3 
435480 
054405 
006317 
686354 
206325 
vs63ze 
004aue 
006325 
aeese4 
006276 
024244 
086322 
206324 
O@63u1 
2246243 
¥86322 
010402 
etedut 
ebueBe 


RE,D$ JSR SwCE 
MSG57 
LDA 2,UNIT 
$SZ MISC,2 
1SZ FATAL 
IMP QRS 


RE.61 JSR SwWCE 
MSG67 
LOA 2,UNIT 
18Z MI8C.2 
18Z FATAL 
JMP QRS 


8A ¢ WO ERROR 
yaC@ ® BAL, ACY 


Sweet STA 3,9wCRET 
LOA 3,0,3 
STA 3,SwCE1 
SAVAC 
HEADER 
PCRLF 
MESSAGE 
Swceeis @ 
PCRLF 
MESSAGE 
MSG51 
LOA 1,$AV3 
TYPACY 
MESSAGE 
M9G52 
LOA 1,Save 
TYPAC 
ISZ SWCRET 
JMP @SWCRET 
SWCRETE @ 


JENDING MEM ADOR ERR 
PIDENTIFIER 


pIT'S Fara 
PENDING DISK ADDR ERROR 


PIOENTIFIER 


FCOUNT AS MISC TYPE ERR 
PITIS FATAL 


s GO00 


PGET ERROR IDENTIFIER 


9"G0O0D" 


p*BAD" 


{@Go1 


@1 

62 

63 
O4 
65 
86 
a7 

a8 
a9 
16 
43 

12 
19 
14 
15 
16 
17 
18 
19 
20 
21 

22 
25 
24 
25 
26 
27 
28 
av 
30 
34 
32 
38 
34 
35 
36 
37 
36 
oy 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
51 
52 
53 
54 
55 


03464 
03462 
63465 
03464 
83465 
03466 
03467 
03470 
03471 
03472 
03473 
O3474 
83475 
03476 
03477 
03500 
03503 
035502 
0356s 
w3504 
83505 
03586 
63307 
63510 
03511 


@3512 
@3515 
05514 
83515 
O3516 
03517 
wds5e2u 
05521 
03522 
e3oes 
43524 


03525 
03526 
03527 


63553¢ 
03531 
03552 
63533 
035354 
035355 
03536 


aMAIN 


Q83477 
054276 
020776 
040311 
020023 
040205 
1e2e0u08 
048273 
040274 
049275 
1024¢0 
040201 
040202 
048367 
086335 
286356 
630174 
@21056 
0611393 
006961 
164011 
oabdnd 
wdoi74 
#13166 
682276 


181115 
002502 
624227 
107404 
002477 
024025 
167404 
002475 
“24024 
107404 
Beoeus 


686555 
080808 
000633 


061433 
0243512 
125502 
830257 
147000 
1064\4 
688663 


eREADS 


RSRDI 


eRLS 
RDATAS 


PREAD SUBROUTINE 


PRETURNOS, NORMAL 
PRETURNOS, FATAL ERROR 


RSRD 

STA 3,RWRET 
LOA @,,READe} 
STA @,RLUP 
LOA 6,C2 

STA @,MODE 
ALC 6,2 

STA 6, AECNT 
STA @,CwCNT 
STA @,DACNT 
SuB 8,0 

STA 8,RETRY 
STA @,FATAL 
STA @,NO,88 
CLRRB 

SETP 

LDA 2,UNIT 
LDA @,CYLT.2 
OVAS ,,D8KP 
INTWT 

SKIP 

JmP od 

LDA 2,UNIT 
I8Z Rwim0,2 
JMP ORWRET 


MOVL# @,8,SNC 
JMP @TREY 
LOA 1,CSP 
AND @,1,SZR 
JMP @IREL 
OA 1,Ci8 
AND 0,1,92R 
JMP @LRE2 
LDA %,C4 
AND @,1,82R 
JmP RE.S 


CHECK 
@ 
JMP RE,4 


O18 8,,08KP 
LDA 1,,8C 
MOVS 1,1 

LOA 2,CA 

ADU 2,3 

SUS@ @,4,SZR 
JMP RE,5 


PRETRY ADORESS 
9SET THE RETRY ADDRESS 
HSET PROGRAM MODE 


HSET RETRY COUNTERS 


ICLEAR RETRY AND 

FATAL FLAGS, 

PCLEAR BAD SECTOR COUNTER 
OCLEAR BUFFER 

PSET PARAMETERS 


PREAOI I 
PWAIT FOR INTERRUPT 


HINCRMT THE READ/WRITE 
HTIMEOUTS COUNTER || 
PTIMEQUT 


PINTERRUPT RETURN 
yNO R¢w DONE FLAG 
1677668 


SPATAL STATUS 


PAOORESS ERROR 


PCHECK WORD ERROR 


HUATA COMPARE 
#ADDR OF DATA GEN ROUTINE 
#DATA ERROR 


READ ENDING ADORESS 
gm SECTORS XFERRED 
ye wORODS 

PSTARTING MEM ADDR 
HCORRECT ADOR 


PENDING MEM ADDR ERROR 


10862 ,MAIN 


at 
82 
as 
a4 
a5 
a6 
07 
a8 
9 
18 
11 
12 
13 
14 
15 
16 
17 
18 
iy 
26 
2) 
22 
238 
24 
25 
26 
27 
26 
29 
3e 
34 
32 
38 
34 
35 
36 
37 
38 
39 


03537 
03340 
0354) 
63542 
03543 
03544 
63545 
83546 
03547 
03558 
03551 
03552 
03553 
03554 
03555 
03556 
03557 
63560 
@3561 
63562 
83563 
03564 
63565 
635566 
63567 
03578 
@3571 
03572 
835738 


03574 
03575 
63576 
@3577 
83600 
63681 
03682 
03605 
u36u4 
03605 
03686 
03607 
es6iv 
wsors 
a5612 
03613 
os6ia 


63615 
05616 


020512 R33 
8405b2 
686356 
054532 
630255 
172414 
600406 
101004 
000404 
220218 
1244628 
124000 
330174 
a35826 
125300 
167008 
165128 
185320 
107802 
o20sie 
830255 
112400 
b20212 
130408 
115400 
147200 
8624938 
1060414 
C886S4 


030174 ,Rat 
C20518 
181500 
25112 
187022 
B11166 
vuudas 
045332 
820202 
101004 
@82276 
v20201 
101065 
“2403 
062481 
083353 
063287 


OGS301 IRELE 
643305 IRE2S 


LDA 6,,SC 
$Ta @8,CSC 
JSR @ISCNT 
LOA 3,,SC 
LOA 2,8C 
SuUBM 3,2,S5ZR 
UMP .¢6 

MOV @,0,SZ2R 
JMP 404 

LDA 8,LS 

NEG t,1 

COM 1,1 

LDA 2,UNIT 
LUA S,UNTINS,2 
MOVS 1,1 

ADD 3,1 
ADOZL 0,8 
ADUZL 8,6 
AOD 8,1 

LOA 0,,8C 
LOA 2,8C 

SuB 0,2 

LDA @,Ci7 
NEG 2,2 

AND 8,2 

AOD 2,1 

DIC @,.0SKP 
Sud# 2,4,8ZR 
JMP REG 


LOA 2,UNIT 

LOA 8,,SC 

MOVS 0,9 

LUA 1,WOSRO4,2 
ADOZ 6,1,82C 
I8Z WOSR,2 

NOP 

STA L,WDOSRO4,2 
LOA 6, FATAL 
MOV 8,8,S82R 
JMP @RWRET 

LOA B,RETRY 
MOV 8,8,9NR 
JMP 0,43 

JMP @, 4) 

RE,28 

GENRET 


RE. 
RE«@ 


HFIND ENDING OISK Aa0OR 


PACOBSECT ACL=HEAD 
1IF .SC NOT = SC A CHK WO ERR 
HTERMINATED THE DATA XPER 


#CHK WD ERR 

HIF SECT =» @ NO MEAD ICR 
JOCCURRED AT THE END OF 
{THe DATA TRANSFER 

ySECT © LAST SECTOR ON DI8K 
HHEAD # HEAD@) 


HFORM THE DISK ADDR 
PWORD AS READ VIA "OIC" 
p SeCTea 

ta SECT XFERRED 


pu SECT SPECIFIED 
pAC2® # SECT NOT XPERRED 


FINALLY AC@e EXPECTED 
FDISK ADORESS 

PREAD ACTUAL 

PENDING DISK ADDR ERROR 


pAOD WORDS READ TQ TOTAL 


PDOUBLE PRECISION 


PEND OF TEST 


ywNAT TO DO NOW 
HCFATAL) ERROR RETURN 


100 NORMAL RETURN 
HTRY AGAIN 


{@863 ,MAIN 


@1 
02 
as 
a4 
@5 
6 
07 
a6 
ay 
12 
ii 
12 
13 
14 
15 
16 
17 
18 
19 
28 
2k 
22 
23s 
a4 
2s 
26 
27 
28 
29 
3e 
34 
$2 
38 
34 
35 
36 
37 
38 
39 
40 


63617 
03620 
@3621 
63622 
e3o2s 
e3624 
3625 
03626 
#3627 
63650 
85633 
03652 
836338 
03654 
63635 
03636 
#3637 
03648 
03041 
03642 
83645 
03644 
03645 
03646 
03647 
036508 
035653 
63652 
wdo5ss 
63654 
63655 
03656 


a54433 
206327 
0354434 
136415 
000426 
128003 
125004 
002346 
024207 
186437 
082568 
040256 
606327 
125005 
125004 
682346 
024210 
106437 
082560 
840254 
@e63827 
101005 
082368 
125004 
002346 
240255 
182562 
040268 
202403 
080848 
646055 
26808 


HSS$i 


WHSs.il 


HSSRETS 
Sams 
MIAO! 


SHHAHERETESHEHAHAHETHTESHETTEAHENEEHETHAHHENEET 


eer 


GENERAL PURPOSE SUBROUTINES 


eeene 


CPORHEHTAHEHHHAEEEHETORNEEHAHOHERHETHEHREHANTEHES 


IGET CYL CHAYBE) eMEAD@SECTOR@SECTOR COUNT 
PSET (C)#L ON RETURN IF CR TERMINATOR 


STA 3,HSSRET 
GETATM 

LOA 3,S8AM 
Subs 1,93,8NR 
JMP HSS,1 
MOV $,2,SNC 
MOV 1,1,SZR 
JMP @IGCS 
LOA 4,LHO 
SUZ 0,1,S8N 
JeP @TQUST 
STA @,HD 
GETATM 

MOV 1,4,SNC 
MOV 1,4,828 
UMP @LGCS 
LOa 4,L8 
SuUBZH 8,1,S8N 
JmP e@lQusr 
STA @,SEC 
GETATM 

MOV @,@,SNR 
IMP @1GUST 
MOV 1,%,8ZR 
Imp @1G6C8 
Sta 8,8C 
SusCL @,2@ 
Sta @, TERM 
JMP @HSSRET 
a 

46655 

8 


IGET "SAME", OR HEAD ® 
pacoaw ACis NAME 


PhSaMEn 


HGTMER NAMES OR CR ILLEGAL 
#CHECK MEAD LIMIT 


TLIMIT EXCEDED 
HEAD & 

HGET SECTOR w& 
pACQeH ACL SNAME 


PNAME OR CR TERM ILLEGAL 
HCHECK SECT # LIMIT 


FLIMIT EXCEDEO 
YSECTOR # 

9GET # OF SECTORS 
#NO SECTOR COUNT, 


PNAME ILLEGAL 
ye OF SECTORS 


PYSAME® 
14/0 ADDRESS MODIFICATION, HI END 


1B264 ,MAIN 


@4 
ee 
as 
a4 
@s 
@6 
7 
38 
a9 
10 
ii 
12 
is 
14 
45 
16 
17 
16 
19 
20 


03657 
03660 
6356) 
23662 
03065 
03664 
03665 
03666 
03067 
036728 
65671 
¥3672 


860477 
18s1e3 
068077 
062677 
064477 
141128 
13103 
178401 
182521 
102408 
240204 
003468 


— we we we 


eCSne 


w 


CHECK SWITCH REGISTER ON ERROR, 


IF Swe 8 & 
If S8w2 8 1 
IF SW2 8 @ 
READS @ 

MOVL @,8,SNC 
HALT 

TORST 

Reays @ 
MOVZL @,@ 


ADDL @,¥,SNC 
INC 3,3,SKP 
SUBZL 8,8,SKP 
Sus @,0 

STA @,LUPSW 
JMP 0,8 


HALT 
DO RETURN #4 
DO RETURN #2 


(SCOPE LOOP) 


HMALT ON ERROR 


YREAD SwITCHES AGAIN IN CASE 
ITMEY WERE CHANGEO, 


PNORMAL RETURN 
9SET LOOP SWITCH 


18805 ,MA 


@1 
62 
83 
@4 
65 
06 
07 
oe 
69 
18 
ii 
12 
is 
14 
15 
16 
17 
18 
19 
28 
ai 
22 
23 
24 
25 
26 
27 
26 
29 
38 
34 
32 
35 
34 
35 
36 
37 


36798 
03674 
03675 
056706 
03677 
o37ee 
0370) 
63702 
83785 
63704 
03785 
03726 
03787 
@3712 
@3741 
63712 
@35715 
e3714 
03715 
83710 
@3747 
03726 
03721 
03722 
03723 
@3724 
03725 
03726 
03727 
037308 
03731 


IN 


026357 
086340 
263077 
066541 
686363 
014207 
200401 
080402 
02618 
080777 
102448 
040256 
240254 
648255 
@48501 
006352 
@86355 
000776 
o@e4ei 
20474 
@30174 
025056 
@45052 
041056 
0063551 
286555 
082776 
020465 
024463 
125200 
042457 





POUICKIt FORMATTER PERFORMS THE SINGLE FUNCTION OF 
WRITING CYLINOER ADDRESS INTO THE FORMAT SECTION 
PPRECEEODING EACH SECTOR ON THE DISK SURFACES, NO 


HCHECKING TS PERFORMED, 


AND PROGRAM WILL MALT 


PAPTER THE FORMAT ADORESSES HAVE BEEN WRITTEN, 


FNQIKS SMEM 

SET 

HALT 

INITE 

JSR 1,680 

08Z LHD 

401 

JMP 02 

FMUNIT 

JSK @,2} 

SuB0 8,8 

STA @,HD 

STA @,SEC 

STA 8,3SC 

874A 8,CYLNO 

RECAL 

Ck Sw 

IMP 4 =? 

NOP 

Parki: LDA 8, CYLNO 
LOA 2,UNIT 
LDA L,CYLT,2 
STA 4,CYLF,2 
STA O,CYLT.2 
SEEK 
CxSw 
JMP ,02 
LOA 6, 3488 
LOA 1,CYLND 
ADD 1,8 
STA B,@GUDAT 


sSIZE MEMORY 

SET TIME BASE 

PERROR RTN FROM TIMER 
PINITIALIZE BUFFERS ETC 
HSET LAST MEAD/SECTOR 


$G0 FIND UNIT # TO BE FORMATTED, 
HCLEAR QUT 
HSOFYTWARE REGISTERS, 


PRECALIBRATE THE OFSK 
PRECALIBRATE TIMEOUT 
pLOOP IF Swee} 


PUPDATE "TO" AND "FROM" 
HSOFT REGS BEFORE SEEKING, 
YSEEK SUBROUTINE NEEDS 
HTHZS OATA TO PROPERLY 
PEXECUTE THE SEEK, 


#GET SEEK COMMAND, 

PAND CYLINDER ADDRESS, 

HAND ADON, 

PSTORE ON END OF FORMAT LIST, 


$0606 MAIN 


81 
G2 
as 
a4 
a5 
86 
a7 
06 
9 
18 
11 
12 
ig 
i4 
15 
16 
17 
18 
19 
22 
23 
22 
23 
24 
25 
26 
27 
28 
29 
38 
33 
32 
3 
34 
35 
36 
37 
36 
$9 
4a 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
51 
5é 
53 
54 
55 
56 
37 
38 
Se 
6a 


03732 
63733 
03734 
03735 
63736 
03737 
03746 
03743 
83742 
03743 
03744 
03745 
03746 
63747 
@3750 
6375} 
83752 
03753 
03754 
63755 
63756 
63757 
037628 
03761 
03762 
83763 
03764 
63765 
03766 
63767 
03776 
83771 
83772 
63773 
03774 
03775 
63776 
03777 
64080 
@4001 
W402 
64083 


64804 
04805 
842806 
04007 
04010 
6401} 
o4ei2 
e4¢15 
waui4 


04025 


@2e2h1 
048203 
102528 
040255 
w2u458 
046257 
066336 
062433 
024444 
125808 
063033 
024445 
630437 
1468382 
006437 
e2aaat 
020432 
125808 
661153 
226361 
606451 
2584353 
181233 
660410 
040242 
g24403 
244276 
082353 
065767 
2866355 
0@0742 
886374 
0837352 
083716 
@06325 
086324 
en4area 
2863552 
086355 
000776 
063077 
008777 


174400 
oeesi2 
020800 
084026 
e64a63 
b04044 
Ooveu8 
BOAR 
147706 
046722 
4152161 
042240 
047337 
020705 
“40808 
005215 
141528 


FOYK23 


FOIK3SS 


Cwri 
Cv2e2s 
FMTWS 
IFMHTS 
GUDATS 
WOLST3 
CYLNOS 
$4o01 
FMYOVRS 


HED, RE 


LDA 4,03 
STA 8,MOOE 
SuBZL 6,8 
STA @,SC 
LDA 8, WDOLST 
STA @,Ca 
SEYP 

DIC @,,LSKP 
LOA 1,¥MTw 
AQD 1,8 

OOC @,,USKP 
LDA 4,CYLND 
LOA 2,CO0202 
ADCZw 2,1,382C 
JSR @IF MAT 
LOA 1,CYLND 
LDA 8, CwRT 
ADD 1,8 
DOAS 6,,D8KP 
INTWT 

JSR CLF MHT 
OA @,,0SKP 
MOVZRe @,0,8NC 
JMP FOIKS 
STA O,ISTAT 
LDA 1,203 
STa {,RWRET 
PSTAT 

eel 

CKSw 

JMR FOQIK2 
CALAD 

Fulk2 

FOIKt 

PCRLF 
MESSAGE 
FMTUVR 
RECAL 

CKSw 

IMP 4w2 
SALT 

JMP yeh 


174400 
202, 
20080 
FMALT 
TGOAT 
IGUD 

] 


408 





PSET THE 

PMODE SWITCK TO WRITE 

HLOAD SC WITH ft 

ySET SECTOR COUNT TO 3%, 

pAND SET CA POINTER 

#T0 BEG OF wORD LI8T 

PSET PARAMETERS LOADS DOC WORD, 
PREAD IT BACK 

HAND ADON SIT 2, 

PTHE FORMAT BUT, 

PRELOAD FORMAT WORD. 

PMAKE SURE THAT 

NTHIS 18 NOT PAST END CYLINDER, 


9TO SPECIAL FMT WALT ROUTINE, 
GET CYLINDER ADORESS 
PAND CODE FOR WRITE, 


ISTART WRITING, 

160 WAIT FOR WRITE DONE, 
PERROR RETURN ® WRT TIMEOUT, 
FREAD STATUS 

1CK THE ERROR BIT, 

INO ERROR AFTER WRITE. 

PSAVE STATUS FOR PRINTING, 
1GET CHECK SWITCH ADDRESS, 
PSTORE IN READ/WRITE RETURN, 
PPRINT OUT ERROR STATUS 8 RETURN 
1T0 CKSw, 


HIF SwITCH2et, LOOP. 

SCALCULATE ADDRESS 

1CALAD JMP ARGMT IF @ SECTS « OR @ 13, 
HCALAD JMP ARGMT JF CYLNS < S15, 
PFINISH FORMATTING 


P®FORMAT DONE® 


PRESTART PROGRAM ELSEWHERE, 
PPERM, WALT, 


eTXTE /FORMAT DONEI/ 


eTXTE /<iSmatarPc 4 


OO67 MAIN 


as 


BGB8i! 


{6268 MAIN 


81 
a2 
a3 
rT) 
as 


a7 
ee 


as. 


ig 
14 


42. 


@4226 
04827 
4850 
eaest 
4032 — 
04853 
B40S6 
24835 
Q4u36 
04037 
24240 


PSPECIAL HALT FOR FORMAT ERROR 
PPRINTS QUT ERROR #0, THEN HALTS, 


BO54415 FMALTS 
260477 
183122 
aeedia 
8e63e5 
wessea 
poae23 
224406 
yeos22 
Be63z5 
asades 


C404) 965877 FMnoos: 


G4042 
04045 


04044 
04045 
04046 
84047 
24258 
w4e5) 
84052 
24053 
e454 
04055 
64056 
04057 
044608 
e4064 
e4¢62 
04863 


202401 
OOSGR2 SQTK2: 


620802 IGUDt 
COCAGe 
280eed 
eaedee 
easee2 
080880 
esones 
BB2000 
OBBCR8 
048808 
oOvede 
00aus 
o8vnee 
CBS9RR 
OOYVHbR 
480408 TGDATS 


STA 5,SQIK2 YSAVE RETURN ADORESS, 

REAOS 2 

AODOZL 8,8,97C PSWITCH ACL SINAN PRINT PC, 
JmMP FeMHOO 

PORLF 

MESSAGE 

MED,R 

LOA. L¢8QIK2 


~TYPACL 


PCRLF. 
WOA 3,SQIK2 
HALT 


_ JMP. OSQTK2 


*SPG@SE 82OESESEQEESERETWRVST 











{@069 MAIN 


Gi 
02 
Qs 
a4 
@5 
06 
@7 
G8 
oy 
18 
4) 
12 
13 
i4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
a4 
25 
26 
27 
26 
29 
3o 
31 
32 
38 
34 
35 
36 
37 
38 
39 
40 
41 


w4e64 
@4665 
04066 
04067 
84070 
04874 
04072 
04075 
04074 
04075 
04076 
04077 
04180 
e410) 
04182 
04108 
04104 
04185 
04106 
04107 
04110 
e4iti 


o4iie 
O41i5 
@4114 
04115 
Q4316 
04117 
04128 
04324 


PADCAL SUBROUTINE IS CALLEO BY CALAD AND REQUIRES 

92 ARGUMENTS FOLLOWING TWE CALL, ARGUMENT IN CALLo! 

S18 TRE LOOP ADDRESS To wrmICH CALAO WILL JUMP IF 

tw OF SECTORS WRITTEN 38 LESS THAN 13, ARGUMENT 

PIN CALLO2 IS ALTERNATE LUOP ADORESS YO WHICH 

PCALAD wILL JUMP IF 43 (OCTAL) SECTORS AND EITHER 2 OR 
14 HEADS HAVE BEEN WRITTEN, ANO THE NUMBER OF CYLINDERS 
118 LESS THAN 332, SUBROUTINE EXITS TO CALLS WHEN 

PALL SECTORS, HEADS, 


@21408 ADCAL3 
040456 
175400 
221448 
040454 
175400 
054453 
220254 
024025 
107445 
oeudai 
024447 
106414 
00404 
1260520 
044254 
002437 
125400 
106434 
088404 
126440 
044254 


000410 
624025 
125480 
1220382 
0844314 
010254 SECOUTS 
010254 
002422 


LDA 8,9,3 
STA 8, SEKSW 
Inc 3,3 

LOA 8,8,3 
STa @,CYLSw 
Inc 3,3 

STA 3,CALRITN 
LDA @,SEC 
LDA 3,038 
AND# @,4,3SNR 
JmP SECOUT 
LOA 1,xCi2 
SubM @,1,8ZR 
JMP ,04 
SubzL 1,1 
STA 4,SEC 
JMP @SEKSw 
INC 1,1 

SuB# @,1,SZ8 
IMP ,o4 

SuBO 1.3 

STA 1,SEC 


JUMP INKMD 

LOA 1,018 

Inc 1,1 

ADCZ# 1,8,S2C 
JSR SHALT 

18Z SEC 

187% SEC 

JmP @SEKSW 


AND CYLINDERS HAVE BEEN WRITTEN, 


9GET SECTR COUNT 

9GET MASK xX FOR BIY 12 ON A 1, 

908 BIT 32 ON A 177 

PNUMBER 1S «< 18, $O DOUBLE INC & LOOP, 
PIF NUMBER 3S 12, IY 38 ENO OF 
pEVEN SECTR SEQUENCE, 

9G0 CHECK FOR END OF OOD SECTR SEQUEN, 
NSET SECTR COUNTER TO #3 FOR 

9000 SECTR SEQUENCE, 

YAND RETURN VIA SECTOR LOOP, 
PINCRMT C12 TO C13 AND CK 

#FOR END OF ODD SECTR SEQUENCE, 
WCOULO BE $@ OR 11 SECTR COUNT, 
PEND OF OOD SEQUENCE 18 END OF 
PSECTRS ON THIS SURFACE, CLR COUNTR 
FOR START OF EVEN SECTRS, AND 

960 INCRMY MEAD COUNTER, 

9GET Ci@ AND INC TO Cit TO 

PMAKE SURE COUNT 18 NOT LARGER 
HTHAN Chil, IF IT U8, IT IS 

yA PROGRAM ERROR, 

HBUMP THE SECTR COUNTER 

PTWICE ANO RETURN 

pVIA SECYR LOOP, 


18078 


@1 
G2 
a3 
4 


04122 
ates 
04124 
o4i25 


5 04126 


04127 
wei3a 
e41314 
04132 
B435S 
04134 
04135 
@4136 
04137 
o4a14y 
o4ai4) 
04142 


0444s 
04144 
04145 
04146 
04147 
04150 


eMAIN 


018256 INKED 
wav2oe 
024247 
122¢92 
On4e4 
15244A 
A5u2e564 
ov24i2 
610660 
020657 
02465) 
122232 
602407 
152449 
o5we254 
050256 
evedvu2 


eOveee SEKSWE 
Meee CYLSw3 
@A@Q008 CALRITNE 
weem12 XCy2t 
863077 SHALT! 
020777 


IszZ HO 

LvA 8,0 

LOA 1,Lm0 
AODCZa 1,8,82C 
JMP ,o4 

Sus0 2.2 

STa 2,SEC 

JMP @SEKSw 
TSZ CYLND 

LOA @,CYLND 
Loa 1,C0282 
ALUCZ# 1,@,S82C 
JMP @CALRTN 
SuUBO 2,2 

STA 2,S8E6C 

STA 2,m0 

JMP @CYLSW 


) 
v) 
a 
12 


MALT 
JmP gel 





$ao71 


81 

2 
a3 
a4 
@5 
a6 
67 
a6 
89 
12 
i} 

12 
13 
14 
15 
16 
17 
18 
19 
23 
24 
22 
23 
24 
as 
26 
27 
26 
29 
3o 
31 
32 
38 
34 


64151 
04152 
#4133 
04154 
04155 
g4156 
04137 
04168 
e446) 
84162 
O41635 
04164 
04165 
04166 
04167 
04170 


O43713 
04172 
04175 
04174 
4175 
64176 
04177 
04200 
B4e01 
esede 
v42es 


04204 


oMAIN 


1824688 
054451 
$42432 
oou4ass 
654426 
034426 
125120 
181188 
442442 
142462 
125128 
179404 
880773 
170441 
176422 
ua2ays 


1024608 
O54434 
34441 
:292u3 
161201 
1458220 
175404 
O8R774 
125262 
OB62A01 
aauaee 


177702 


PAC REM AC@a(aC@,ACi)sac2 
Olvids Sus a, 
Olyvpo: $fa 3,MSAV 
SuUsZ# 2,9,82C 
JMP DEXT 
Ovybs STA 3,MSAV HOIVIDE 
LDA 3,28 
MOVZL tpi 
OLOOPS MOVL Bp, 
SUB% 2,0,SZ2C 
$uUB 2,48 
MOVE tod 
INC 3,3,S5Z2R 
JMP OLOOP 
Sus80 3,3,S8P 
OEyT! §u8Z 3,3 
JMP @MSAYV 


CaCO, ACL) SACL #AC2eACY 
MULT3 SuBC 0,8 tMULTIPLY 
MULTAS STA S,MSAV 
LOa 3,M28 
MLOUP? MOVR 1,1,9NC 
MOVR 0,0,38KP 
ADDZR 2,8 
INC 3,35,S82R 
JMP MLOOP 
MOVCR 1,1 
JMP @MSAV 
MSavit a 


Mans 726 





$8072 4MAIN 


ay 
G2 
a3 
a4 
a5 
a6 
a7 
28 
oy 
1e 
ii 
12 
is 
i4 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
36 
34 
32 
33 
34 
38 
30 
37 
36 
39 
40 
4\ 
42 
43 
44 
45 
46 
47 
4g 


94265 
64206 
24207 
a4210 
o42i1 
o42eie2 
04213 
w4eia 
@4e195 
@42196 
04217 
“4226 
04221 
04222 
o4225 
04224 
g4225 
4226 
04227 
24238 
ea23)h 
4232 


05455) 
044585 
#585205 
810546 
wsi4oe 
624505 
o2inve 
125112 
423761 
L2s4yui 
L5i4aue 
124022 
004477 
000773 
600402 
204474 
024466 
250466 
63511 
2O0777 
v6eei) 
eA2sed 


ITELETYPE NON INTERRUPT PACKAGE 

ACL, AC2 SAVED 

P"MESS" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBLER 
I"CRLF" PRINTS A CARRIAGE RETURN 

P"POCT" PRINTS CCL) IN OCTAL 

P*7OCT" PRINTS CCL) IN OCTAL, LEADING ZEROS SUPPRESSED 
P"PDEC" PRINTS CC1) IN DECIMAL, LEADING ZEROS SUPPRESSED, 
}YHE ABOVE THREE ARE FOLLOWED BY THE TAB IN P,TAB 

y"7INO" ACCEPTS OCTAL, AND 

P"VEND" ACCEPTS DECIMAL SINGLE PRECISION SIGNED INTEGERS 
HINTO ACL FROM THE TTI, LEADING NULLS, TABS, 

HAND SPACES ARE IGNORED, A 16 BIT UNSIGNED INTEGER IS 
FORMED, THEN NEGATED IF A MINUS SIGN IS TYPED, 

JEYIT AT CALLOL If INPUT ERROR WITH ACOBBAD CHARACTER, 

} (NOT A LEGAL DIGIT OR TERMINATING CHARACTER) 

EXIT AT CALL@2 UPON TERMINATING CHARACTER 

} with aCusy, @, 48, $2, 55 

} FOR NULL, TaB, SPACE, CARRIAGE RETURN, COMMA 

ITHE ABUVE WAIT FOR TTo DONE, THEN CLEAR TTO, 

POCHAR" PRINTS ASCI] CMARACTOR IN CC(Q)RI CCB)L MUST BE @, 
EXITS CALL #2 IF C(O)ReG, CORRECTS THE PARITY, 
JSYMULATES TAB ON ASR&3, 

P"TYPE" PRINTS C(O)R, MUST HAVE PROPER PARITY, EXITS AT 
ICALL4%$,. REPLACE "TYPE" wITH INTERRUPT TYPE IF DESIRED, 


MESS3 STA 3,MESSR SPRINT A TEXT MESSAGE 
STA 1,P,AaCy 
STA 2,P,AC2 
TSZ MESSR 
LDA 2,0,3 30(2) POINTS TO MESSAGE 
LDA 1,P,377 ph 6 BIT MASK 
LDA @,9,2 9002) 80ATA WORD 


MOVL® 1,1,52€ 
ANOS 1,6,93KP 


AND 1,8,S5KP $C (@) "DATA CHARACTOR RIGHT 
Inc 2,2 FINC TO NEXT wORD 
COM 141 TFLIP MASK 
JSR CHAR SPRINT 
JMP MESS#6 + ANOTHER 
JMP eve 
P.e_ST3 JSR CHAR 
PExITs LOA 1,P,ACt 
LDA 2,P,aC2 
SKPBZ TTO 
JMP aol 
NIOC TYTO 
JMP @MESSR ILAST 


10073 ,MAIN 


a1 
62 
6S 
4 
5 
6 
07 
a6 
a9 
10 
it 
12 
13 
14 
15 
16 
17 
18 
iy 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
36 
3i 
32 
33 
34 
35 
36 
37 
38 
39 
48 
41 
42 
43 
44 
45 
46 
a7 
48 
49 
5é 
51 
52 
58 
54 
56 
56 


04233 
04234 
64235 
64236 
04237 
42a 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
64258 
04251 
04252 
64253 
04254 
64255 
04256 
04257 
04260 
64264 
04262 
04263 
84264 
04265 
04266 
64267 
64270 
04273 
04272 


046275 
04274 
04275 
04276 
04277 
04300 
04301 
04302 
64383 


04304 
64305 
84306 
84307 
84310 
4911 


84312 
84513 
04314 
04315 
04516 
04317 


1@2401 
020462 
050457 
030435 
0o4e4 
o5ea54 
030442 
162408 
O54543 
644447 
040445 
050401 
Gennes 
018777 
G20444 
152005 
000751 
034436 
182400 
146452 
088405 
140402 
034435 
101480 
006773 
1512935 
@34433 
054424 
163000 
175004 
004427 
080755 


030425 
1800068 
vioees 
801008 
488108 
680018 
oBuRe1 
¥80000 
#30435 
eeoate 
825420 
201750 
Oeb14a4 
G0e012 
GG00b1 
0860008 
C8G810 
000088 
680008 
O8CBV2 
OOveOt1 
620068 
O8US77 


zocTs 
PocTs 


POECS 


DecocTs 


DECOTS 


DECPE 


OCTAB! 


DEcTB: 
eROX 18 


ROX 8 
ZSUPP8 
Paci 
P,aC2t 
PeTABS 
P.C603 
P.S778 


SUB 4,8,S9KP 

LOA @,P,C6g 
STA 2,7,AC2 
LDA 2,0CTAB 

IMP 404 

STA 2,P,AC2 
LOA 2,D0ECTB 

SuB8 8,8 

STA 3,MESSR 

STA 1,P,ACi 
STA 8,ZSUPP 

STA 2,.%1 

8 PA"LOA 2,TABLE® INSTRUCTION 
T8Z ok 

LDA @,P,TAB 
MOV 2,2,5NR 
JMP POLST 

LDA 3,2SUPP 
$US 8,8 

Suso@ 2,1,82C 
JmP OECP 

SUB 2,1 

LOA 3,P,C60 
Inc 8,8 

JmP DECOT 
MOVZRw 2,2,5NR 
LOA 3,P,C68 
STA 3,Z8UPP 
AOD 3,8 

MOV 3,3,SZR 
JSR CHAR 

JMP DECOCT 


OPRINT C(1) IN OCTAL 


PRINT C1) IN DECIMAL 
pBOTH ENTRYS PRINT NUMBER 


HTHEN YAB TO NEXT POSITION 


pTF TABLE ENTRYBO 
PEXTT WITH TAB 
ZEROS SUPPRESS 8TUF 


HFORM THE DIGIT 


10(6) #OIGIT 
MAKE ASCII 


PPRINT 
1GEY NEXT OIGIT 


LDA 2,,¢1%,*0ECOCT 
100080 

1oau9 

1966 

192 

ie 

i 

@ 

LOA 2,,%1¢,.=DECOCT 


10080 
1000 
100 
1a 

i 

@ 


@ 

@ 

@ 

41 ICHARACTER PRINTED AFTER NUMBERS 
66 

377 





{@074 


Q1 
2 
as 
Q4 
65 
@6 
07 
08 
09 
18 
1% 
12 
13 
14 
19 
16 
17 
16 
i9 
28 
2) 
22 
25 
24 
25 
26 
27 
26 
29 
38 
33 
32 
38 


04320 
w4s2i 
04322 
04928 
04324 
64825 
04326 
04327 
04336 
04331 
84332 
04333 
Q43354 
64335 
04556 
04357 
84340 
b4544 
04542 
64343 
04344 


84345 
04346 
64347 
043590 
04351 
64552 
04353 


04554 
84355 
043656 


eMAIN 


054456 
103355 
o@iael 
115128 
177004 
0@0777 
1es2ee 
141388 
034452 
116415 
080403 
084424 
6024208 
020458 
004421 
020416 
O3A441 
163404 
668773 
040412 
82419 


wSaaii 
644745 
0o5u74a5 
O28454 
Q64747 
620431 
@Ae6si 


C2008 
200002 
828000 


CHaRt 


CHAR’ 


CHa.S3 


CRLF 3 


CHRETS 
CHORZ! 
MESSR?3 


STA 3,CHRET 
MOVS 0,6,SNR 


FPRINT C(@) RIGHT 
PRETURN #2 IF NULL 


JMP 1,3 

MOVZL @,3 COMPUTE EVEN PARITY 
ADD 3,3,S8ZR 

JmMP ae | 

ADOK 8,0 

MOVS @,2 

LOA 3,P.Cidi FIS THIS A TAB 

SUB# 0,3,5NR 

JMP CHA,S ves 

JSR TYPE ONO PRINT IT 

JMP @CHRET PEXIT 

LOA @,P,240 FSIMULATE A TAS 

JSR TYPE mwITH 1 TO 14 SPACES 
LDA @,CRHORZ 

LDA 3,°,C7 

AND 3,8,32R 

JMP CHA,S 

STA @,CHORZ 

JMP @CHRET 

STA 3,MESSR SAVE RETURN 

STA 1,P.ACy 

STA 2,P,aC2 

LOa @,P,Ci5 

JSR CHAR PPRINT CARRIAGE ANO LF 
LDA @,P,Ci2 

JMP P LST 

i] 

a 

J 
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@4 
a2 
a3 
04 
C-) 
a6 
07 
8 
oy 
18 
41 
12 
138 
14 
15 
16 
\7 
18 
19 
20 
21 
22 
25 
24 
25 


04357 
04368 
44564 
04362 
04563 
04364 
@4365 
84366 
04367 
04376 
04373 
wad72 
84373 
04374 
@4376 
04376 
04377 
04480 
04404 
04462 
04483 
04404 
04405 
04486 
B4407 


054430 TYPES 


074477 
177122 
080404 
@635i11 
080777 
6,141 
@34731 
17822¢@ 
163400 
116@43 
OSAAL4 
162432 
010761 
034407 
116445 
054766 
002407 
080887 
O0e031 
weeoie 
ee0a15 
000240 
000048 
080008 


STA 3,TYPRET 


READS 3 
A00ZL 3,3,8ZC 
JMP 404 
SKPBZ TTO 
JMP iad 
OOAS 8, TTO 
LDA 3,P,3577 
MOVZR 3,3 
ANDO 3,8 
abCcoO @,3,38NC 
LOa 3,7 .C40 
SuUBZa 3,8,82C 
182 CHORZ 
LDA 3,P.Ci8 
$us0 O,3,5NR 
STA 3, CHORZ 
JMP @TYPRET 

P.c73 7 

Peciis %4 

P,ci2at 12 

P,ciss 15 

P2488 249 

P.C402 46 

TYPRET? 


PTYPE THE C¢(o)R IF 
ISWITCH 1(8). 


PINHIGIT TYPE EXIT, 


PSKIP NON@PRINTING CHAR 


#CLR HORZ POS 


16076 


ir} 
2 
es 
4 
5 
6 
07 
a8 
89 
12 
44 
12 
13 
i4 
15 
16 
17 
18 
19 
20 
23 
22 
23 
24 
25 
26 
27 
26 
29 
34 
34 
32 
33 
34 
35 
36 
37 
36 
39 
48 
4} 
42 
43 
44 
45 
46 
47 
48 
49 
58 
53 
52 
53 
54 
55 
56 


04416 
4411 
04432 
64443 
4444 
04445 
B4416 
4417 


64429 
e442y 
04422 
64425 
04424 
04425 
04426 
64427 
04430 
04431 
044382 
04433 
04434 
64435 
04436 
04437 
84440 
e44aat 
04442 
04443 
04444 
04445 
04446 
04447 
04450 
04453 
04452 
04453 
044654 
04455 
04456 
04487 
04460 
04461 
84462 
04465 
04464 
644666 
04466 
04467 
C4472 
04471 
04472 
u4473 
04474 
04475 
04476 


oMAIN 


@286773 TINC,& 
004746 
G10744 TINK, 
e2a780 TINR,3 
034676 
175102 
124460 
€80667 


102121 TINO? 
142442 TINDS 
834734 
O50671 
O38757 
113882 
182448 
840663 
054602 
175004 
060768 
054668 TINW,$ 
663612 
880777 
068610 
204604 
034746 
116414 
$81015 
080765 
024432 
186015 
OB0744 
186424 
o8eaed 
634641 
177200 
054637 
688760 
1364145 TINM,8 
0887352 
024416 
107022 
146513 
080731 
618627 
020627 
18120 
115120 
176120 
137868 
145228 
125232 
117808 
688737 
177720 TINi.8 
60255 TIN2,3 


TINS. $ 


TINN,& 


LDA 
JSR 
1sz 
LOA 
LOA 
MOVL 
NEG 
JMP 


ADCZL 
$y60 
STA 
STA 
LDA 
AQgD 
S$yUs0 
STA 
LDA 
MOV 
JMP 
STA 
SKPON 
JMP 
OAc 
JSR 
LOA 
Sybe 
MOVe® 
JMP 
LOA 
AOCe 
JMP 
Su8Z 
JmP 
LOA 
ADOR 
STA 
JMP 
Subse 
JMP 
LDA 
adOZ 
SUSL« 
JmP 
18Z 
LOA 
MOVZL 
MOVZL 
MOVZL 
ADD 
MOVZR 
MOVZRA® 
ADD 
JMP 
=60 
$5 


@,P,Ci2 
TYPE 
MESSR 
1,P ACh 
3,ZSUPP 
3,3,82¢ 
i,t 
PEXITTes 


@,8,SKP 
8,8 
3,MESSR 
2,P,AC2 
2,P,Ci2 
@,2 

8,8 
@,ZSUPP 
3,Z8UPP 
3,3,3ZR 
TINK, 
3,P,ACY 
TT! 

eel 
@,TT! 
CHAR 
3,P,C4a 
0,3,SZR 
@,8,SNR 
TINS, 
1,TIN2, 
Opt, SNR 
TINK, 
@,4,S8ZR 
TINM, 
3,ZSUPP 
3,3 
3,Z8UPP 
TINW,¢f 
1,3,SNR 
TING, 
4, TIN’, 
@,1,82C 
2,4,SNC 
TINR, 
ZSuUPP 
O,P,ACh 
8,2 

8,3 

3,3 

1,3 

2,1 
1,1,82¢ 
8,3 
TINA, 


POCTAL ENTRY 
PDECIMAL ENTRY 


yaC2 18 SAVED 


#MINUS SIGN AND LEADING SPACES FLAG 


PSPACE, TAB, OR NULL 
tCOMMA 


MMINUS 
NO 


HCOMPLEMENT SIGN 


91S IY A CARRIAGE RETURN? 


sSKIP IF NOT A OIGIT 
PSKIP IF DIGIT 


HOUT OF LEADING SPACES 


p68 OLO P,ACLIS + NEw OIGIT 


PSKIP IF OCTAL MODE 
PADD 2 OLD P,ACi'S 


10077 ,MAIN 
a1 
G2 
a3 
4 
5 
ao 
a7 
08 
9 
16 
ii 
12 
13 
i4 
15 
16 
17 
18 
19 
20 
ai 
22 
235 
24 
26 
26 
27 
28 
29 
30 
31 
32 
38 
34 


PPROCESSOR TIMER PACKAGE 

HTMIS PACKAGE 18 CALLED WHENEVER IT 28 NECESSARY TO 
PIDENTIFY THE MEAN TIME BASE OF THE COMPUTER IN 
PWHICH THE PRUGRAM RESYDES, THE MEAN TIME BASE MAY 
PTWEN BE UTILIZED TO VERIFY OR CALCULATE THE RELATIONSHIPS 
JOF OTHER PERIPHERAL FUNCTIONS, 

U 

ITHE PACKAGE RETURNS TO THE CALL INSTRUCTION WITH 
HTHE CONTENTS OF ACis TO A CALIBRATION COUNT 

IYHAT MAY BE INCREMENTEO TO OVERFLOW IN 1868 MILit@ 
PSECONDS BY THE FOLLOWING DELAY LOOP, 

ITYPELS MOV 3,0 


} INC 0,8,82C PSKPENOT OVERFLOW 
U SMP 1,3 sEXIT LOOP 

' 6 PANY FLAVOR [0 SKP 
’ ump TYPES 

' 


NTHE CONTENTS OF AC2 wELk CONTAIN A SIMILAR 168 MS 
HITERATION COUNT BUT FOR THE FOLLOWING LOOPS 
#Y¥PE@$ NIO @ 


’ OIA 1,,DEV 9GET DEVICE STATUS 

’ AND# 2,3,8ZR PANY STATUS COMPARE 

U IMP 44 PEXPECTED STATUS EXIT 
’ INC 8,8,82R s8KP OUT ON LOOP OFLOW 
’ JMP TYPE2 


’ 

ITHE VALUES RETURNED MAY BE ARITHMETICALLY 
PPROCESSED (MULTIPLIEO/DIVIDED) FOR LONGER OR 
HSHORTER DELAYS AS LONG AS THE STANDARD LOOPS 
ILYSTEO ABOVE ARE UTILYZED, 


! 

HXI7 IS RECOMMENDED THAT ALL TIMING FUNCTIONS 
HBE PERFORMED WITHIN THE SAME GENERAL AREA OF 
MMEMORY AS THIS TIMING PACKAGE, 


102768 ,MAIN 


es 
2 
as 
a4 
e5 
6 
7 
88 
ey 
16 
ti 
12 
is 
i4 
15 
16 
17 
16 
19 
20 
23 
22 
2s 
24 
25 
26 
27 
28 
29 
38 
31 
32 
33 
34 
35 
36 


04477 
245¢0 
64501 
84502 
04593 
04504 
o48@5 
84506 
64587 
@4510 
@4511 
e4512 
04513 
04514 


04515 
64516 


054557 
063514 
880416 
e6o114 
065514 
0004¢3 
w53614 
gOe4it 
062677 
192520 
004473 
e61114 
065514 
e025a2 


024549 
081400 


' 
PINITIALLY, THE TIMER PACKAGE ATTEMPTS TO 

POETERMINE IF YRE COMPUTER HAS A REAL TIME CLOCK 
PAVAILABLE, THE ITERATION COUNTS ARE DEVELOPED SIMPLY 
yBy SYNCING WITH THE CLOCK AND COUNTING 

TTHE WOF LOOP ITERATIONS AT 1@ HZ, 

’ 

DIF, HOWEVER THERE IS NO REAL TIME CLOCK THE MEAN 
ITIME BASE UF TRE LOOPS MUST BE CALCULATED, THIS 

PIS PERFORMED Sy COUNTING THE #OF TIMES THE 

ISTANDARD LOOPS ARE ITERATED FOR ONE OUTPUT 
ICHARACTER TO DEVICE "TTO" AND REQUESTING THE 

PBAUOD RATE OF DEVICE Tro BE TYPED IN BY THE 

ITEST OPERATOR, 


U 
PTYMES STA 3,SVTIME 


SKPBZ RIC HTEST FOR CaS/RTC 
JMP SCORE sCAS RTC NONEXSS, 
NIOS RTC ITURN CLOCK ON 
SKPBZ RTC BUSY #3 18 RTC 
JUMP 4@d 

SKPON RTC POVONE 88 NO RIC 
JMP SCORE yAND DEV TTO I8 USED 
TorST 

Su8ZL 2,8 p810 MZ FOR RTC 
JSR TYME 

004s v,RTC PPASSEO TO "TYME® 
SKPBZ RTC SFOR EXECUTION 


JMP @SVTIME pACS AND AC2SL00P COUNTS 
} 
STHE FOLLOWING SUBROUTINE IS YO RETAIN COMPATABILITY 
PWITH THE OLD PROCESSOR IDENTIFICATION AND TIMING 
PPaCKAGE TO RETRIEVE THE LOUP COUNT FOR 
ITHE DIA,B OR C LOOP TYPE 2 
eS0T8 LOA 1,NUCAL 
UMP 8,3 





{8879 ,MAIN 


Qi 
2 
BS 
Q4 
65 
86 
@7 
88 
a9 
18 
44 
12 
is 
14 
15 
16 
17 
18 
19 
20 
2h 
22 
23 
24 
25 
26 
27 
26 
29 
3@ 
34 
32 
33 
34 
35 
36 
7 
36 
39 
48 
41 
42 


04517 
04520 
04521 
64522 
84523 
04524 
04525 


04526 
64527 
64538 
04531 


64632 
04533 
04634 
84835 
64536 
04537 
04548 
@a5a1 
64542 
04543 


64546 
4545 
04546 
64547 


64556 
64551 
04552 
64653 


662677 
1@24¢8 
084463 
wOitti 
063511 
086533 
004667 


@86535 
ee0775 
044530 
839535 


151400 
024521 
182408 
006526 
181004 
125402 
e2052a 
044517 
151808 
185000 


182420 
286535 
640517 
v4a4a515 


230516 
0863512 
O30582 
044501 


HTHERE 1S NO RYICWUTILIZE DEVICE TTO AND ASK FOR 
HBaUD RATE INPUT FROM OPERATOR 


SCORE! TIORST 

Sus 4,0 

JSR TYME 
DOAS B,TTO 
SKPazZ TTO 
JSR @TUMBLER 
SESOUT 


SCORA! 


PACBENULL CHARACTER 


HPASSED TO TYME 

yPQR EXECUTION 

rout TEXT 

PASKING FOR BAUD RATE 


HTHE FOLLOWING SERIES OF INSTRUCTIONS WILL 
CALCULATE THE ITERATION COOUNY FOR 

4 BIT OF TTO OUTPUT AFTER RETRIEVING 

HTHE CONSOLE BAUD RATE FROM THE 

TEST OPERATOR@mHREQUIRES SUBROUTINE TINO 


JSR @KEYS 
JMP SCORA 
STA 1,L0CK 
LOA 2,5,301 


HINPUT ERROR 
HSAVE BAUD RATE 
118 


PROUTINE ASSUMES AN 11 SIT CHARACTER 


Inc 2,2 

LOA $,OKDINAL 
SUB 2,8 

JER OKEYSe2 
MOV 8,28,S82R 
INC i, 

LUA A,LOCK 
STa 1,.0CK 
MOV 1,2 

MOV @y1 


PASSUME 14 BITS 
ICOUNT FOR FULL CHAR 


ICHAR TIME/M@BITS 

vIF ANY REM, 

9FUDGE BIT COUNT 
PSAVE ITR COUNT { BIT 


yaCi = BAUD RATE 


yBaUD RATE TIMES COUNT FOR 3 BIT 
PwrLhL EQual ITERATION COUNT FOR 1 SECOND 


SUB 4,2 
JSR @OKEYSeL 
STA 8,KN 
STA 1,48 
Ji SECOND DIVIDED BY ia 
LOA 2,585,304 
JSR @OKEYSe2 
LOA 2,OROINAL 
STA 1,ORDINAL 


OMUL ACLeAC? 

PSAVE DOUBLE LENGTH 
RESULT 

® 10@ MILLISECONDS 
118 


#COUNT FOR { CHAR 
POROINAL LOS MS TYPE t 


PCONTINUE CALCULATIONS NEXT PAGE 


18880 MAIN 


Qi 
2 
63 
a4 
85 
66 
07 
a6 
ag 
18 
ii 
i2 
9 
i4 
15 
16 
17 
16 
i9 
28 
23 
22 
23 
24 
25 
26 
27 
26 
29 
30 
34 


04554 
@4555 
84556 
04557 


04568 
04561 
64562 
24563 
04564 


04565 
04566 
64567 
045798 
84571 
84572 
04573 
G4574 
84575 


84576 
043977 
64620 
C404 
04682 
04685 


w2o53t 
024507 
606585 
644505 


145120 
111405 
151400 
122400 
@@0477 


t51eKa 
824467 
125126 
182468 
006472 
121860 
024402 
0364728 
606405 


830478 
806464 
044455 
151400 
024452 
082453 


} 
#4 SECOND COUNTs1 CHAR COUNT 8 # CHARIS PER SEC 
ITMHIS CALCULATION IS USED TO EXPAND THE TYPE 2 COUNT 
LOA @,KN 
LDA 1,KS #4 SEC, RESTORED 
JSR @KEYSe2 HOIVIOE By CHAR, 
STA 1,K5 ta CHAR, 3 SEC 
$CALC RELATIONSHIP OF REM, YO 1 CHAR TO FILL SECOND 
MOVZL 271 
MOV 8,2,SNR 
INC 2,2 
$y8 3,28 
JSR @KEYSe2 #DIVIDE REM INTO CHAR 
PACISFUOGE FACTOR { RELEATIONSHIP OF CHAR TO TOYAL 4 SEC 
JFINISH CALCULATIONS ON LOOP TYPE {1 TO® 18ECOND 


MOV 1,2 PFUOGE FACTOR 

LOA 1,NUCAL PINTO CHARACTER TIME 
MOVZL 1,1 

SUS 0,8 PWwILL 8 

JSR OKEYSe2 PPORTION OF CHAR 

MOV 1,8 3TO COMPLETE 1 SECOND 
LOA L,NUCAL 91 CRAR, TYPE 2 LOOP 
LDA 2,K§ pa CHARS IN 1 SEC 


JSR OKEYSe1 be PORTION OF CHAR 
IDOVBLE LENGTH ACU,ACia4 SECOND FOR TYPE 2 LOUP 
LOA 2,8,301 PUIVIDE BY 48 FOR 168 MS 
JSR OKEYSe2 
STA 1,NUCAL 
MOV 1,2 
LOA t,ORODINAL 
IMP OSVTIME 


pAC2BLOGMS LOOP2 
FACL 8180MS LOOP 1 


$0081 ,MA 


@3 
b2 
i) 
4 
5 
06 
7 
86 
9 
16 
13 
12 
13 
14 
15 
16 
17 
18 
19 
20 
24 
22 
23 
24 
25 
26 
27 
26 
29 
38 
31 
32 
38 
34 
35 
36 
37 
36 
39 
46 
44 
42 
a3 
a4 
45 
46 
47 
48 
49 


04664 
04605 
84686 
04607 
046408 
04611 
64612 
04613 
04614 
04615 
64616 
04617 
046208 
04621 
04622 
04623 
04624 
04625 
04626 


04627 
04650 
04631 
04632 
046338 


04634 
04635 


04636 
046937 
04649 
04641 
04642 
04643 
04644 
04645 
04646 
04647 
04658 
@46515 
@4652 


IN 


024001 
044446 
024437 
044001 
025400 
044410 
044414 
044421 
025401 
044405 
044434 
152400 
126400 
861114 
B6SS1¢6 
000777 
124004 
000774 
O61114 


181060 
125405 
080483 
063534 
000774 


w6i116 
060177 


e60a0e 
060400 
1028¢5 
063077 
151404 
680773 
663877 
004646 
044406 
O50406 
620483 
040061 
081482 








U 

ITHE FOLLOWING SUBROUTINE DETERMINES THE ITERATION 
SCOUNTS FOR THE DEVICE SPECIFIED BY THE INSTRUCTIONS 
HFOLLOWING THE JSR CALL TO TYME 


1008S 8, RTC OR 
P8KPBZ RTC OR 


’ 

TYME! LDA 1,1 

STA 1,RVTMP 
LDA L,ENTYM 
STA 1,1 

LOA 1,8,3 
STA 1,T2MA 
STA 4,Tim8 
STA 1, TIMC 
LOA 1,1,3 
STA 1,TIMAe1 
STA 1, TIMBOd 
Su8 2,2 

SuB 1,1 

DOAS @,RYC 
SKPBZ RTC 
IMP yet 

COM 1,1,8ZR 
JMP TIMA 
OQAS @,RTC 


TIMA! 


TIMBs 


DOAS 8,TTO 
SKPBZ TTO 


OSAVE INTR, LINK 


#FOR LOOP 2 INTR, 
9GET DOAS 


pFOR EXECUTE 
1GET SKPBZ 


#FOR EXECUTE 


sCLR CTRS 
yOR TYO 


PWAZT FOR DONE 

HAND 2ND OONE 

ITHEN START COUNTING 
ITHE THIRO OONE 


ITHE FOLLOWING COMPRISES LOOP TYPE 1 


MOV 8,8 

TnC 1,14,SNR 
JUMP 4¢3 
SKPBZ RTC 
JMP TIMBO) 


pwATCH FOR OFLOW 


WLQOP TYPE 2 18 COUNTED UNTIL PI FROM DEVICE 


TIMCS DOAS 8,RTC 


INTEN 


ITHE FOLLOWING INSTR, COMPRISE THE LOOP TYPE 2 


NIO @ 


WAND JY ITERATES UNTIL 


OIA 0,8 JINTERRUPTED BY PI 


ADC @,@,SNR 
HALT 

INC 2,2,S2R 
UMP TIMCea 


PFILL INSTR, 
LOOP CTR 


MALT PDEVICE OR PY FAILED 


ENTYM? ,¢1 
STA 1,ORDINAL 
STA 2,NUCAL 
LDA @,RVTMP 
STA @,1 


170 HERE WHEN PI 


PSAVE LOOP 1 
PAND LOOP 2 


HRESTORE INTR, LINK 


JMP 2,3 PRETURN TO CALL 


$6862 .MAIN 


8} 
02 
es 
4 
es 
go 
7 
68 
89 
16 
43 
12 
13 
14 
19 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 


04653 
64654 
84655 
04656 
04657 
04668 
04661 
04662 
04663 
04064 
04665 
04666 
04667 
04676 


O20A08 
880008 
000008 
UOLOb2 
0046265 
080088 
004424 
@04172 
004152 
600880 
688008 
680012 
005215 
1520142 
147724 
043248 
aS25o% 
120164 
640722 
142724 
037640 
120275 
B80BKR 


' 
ICONSTANTS SUBR, LINKS AND TEMP STORES 
RVTIMPS @ 


ORDINALS r,} 

NUCALS @ 

SVTIMES @ 

TUMBLERS MESS 

LOCKS 6 

KEYS TINO 
MULTA 
DIVvO 

KS3 ] 

KNE V] 

$,.3D13 18. 


SESOUTS ,TXTE J[al5><i2n<i2> 
TYO BAUD RATE Pe | 





ee8s 


ei 
2 
83 
ea 
as 
86 
a7 
68 
Ow 
16 
3} 
12 
18 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
a7 
26 
29 
36 
34 
32 
33 
34 
35 


64782 
0478S 
04704 
84705 
04786 
64707 
24712 
warts 
04712 
@4739 
a4714 
04716 
04716 
04717 
04720 
04721 
04722 


04725 
04724 
04725 
04726 
04727 
04730 


eMAIN 


040423 
850425 
054423 
182448 
e24ay5 
125015 
800407 
030417 
006412 
124400 
646402 
000402 
884701 
020406 
230406 
034406 
681480 


600008 
064762 
os2eee 
O8800e 
C8888 
Beeiad 


LAYUPS 


CALIB3 
OLY.83 
OLVYel 
OLY,2! 
OLy.d8 
CXL eV! 


PINITIALIZING SUBROUTINE FOR SUBROUTINE DLTYM, 
PPREREGUISITES ARE! THE PTIME PACKAGE MUST HAVE 
PBEEN RUN SUCCESSFULLY ANO THE CALIBRATED COUNT 
PRETURNED IN ACL MUST BE STORED IN THE LOCATION 
TAGGED *CALIB", LAYUP LOADS THE NEGATED COUNT FOR 
Ji MILLISECOND INTO ,WERK (OF THE DLTYM SUBR,) AND 
PINTO ACL, ALL ACTS EXCEPT ACL ARE SAVED, ACA (C) 
PRETURNED ZERO INDICATES "CALIB* NOT LOADED, 


STA @,OLYal 
STA 2,0LYe2 
STA 3,OLY.S 
$UBO 6,8 
LOA 1,CALIB 
MOV® 4,14,5NR 
JMP 4907 

LOA 2,CXLeV 
JSR @OLY.@ 
NEG 1,1 

STA 1,0,42 
UMP .e2 

e WERK 

LDA O,OLYet 
LDA 2,DLYe2 
LOA S,OLY,S 
Imp 2,3 


WSAVE OUR ACIS, 


HCLEAR ACB FOR DIVIDE, 
PCALTIB LOADED PREVIOUSLY BY MAIN, 
HCKN IF (C) CALIB © @, 


HOIVIDE COUNT BY 188, 


JRESTORE AC'S AND RETURN WITH 

#4 MS COUNT IN ACL, (CD ACL WILL 
9BE RETURNED @ IF CALIB IS 

yNOT LOADED, 


a 
DIVO 
a 

@ 

8 
144 








$0@64 ,MAIN 
01 
2 
o3 
a4 
a5 
86 
87 
a8 
9 
12 
44 
12 
is 
14 
15 
16 
17 
18 
19 
20 
23 
22 
23 
24 
25 
26 
27 
26 
29 
36 
34 
32 
33 
34 
35 
36 
37 
38 
39 
40 


}MAIN PROGRAM SHOULD BE CODED SUCH THAT THIS SUBR, 
PwILL BE CALLED 8Y "DELAY" FOR STANDARD FORMAT, 
}BOTH THE PTIME (PROCESSOR TIMER) PACKAGE AND 
PSUBROUTINE LAyUP MUST HAVE BEEN CALLEO SUCCESSFULLY 
PPRIOK TO CALLING THIS SUBROUTINE, THE ARGUMENT FOLLOW] 
PING THE CALL IS THE ADDRESS OF YHE DELAY CONSTANT, 
PALL AC'S ARE SAVED, RETURNS TO CALL#a@ ON END OF 
JDELAY, A SAMPLE INSTRUCTION SEQUENCE SHOWING THE 
JPROPER LINKING OF ALL THREE SUBROUTINES J8 AS 
IFOLLOWSS 

PUSR OSTIME PWHERE STIME!S PYIME, 

MOV $,1,SNR WVERIFY COUNT 23 LOADEO, 

PRALT HNO COUNT, WALT ON ERROR, 

PSTA 1,@ICALIB PWHERE ICALIB8 CALIB, 

PUSR @YXLAY PWHERE YXLAYI LAYUP, 

MOV £,4,5NR PVERIFY WERK IS LOADED, 


HALT NO COUNT HALT ON ERROR, 
fees PROGRAM CONTINUES TO POINT WHERE DELAY IS REQG'D, we 
TOELAY PWHERE DELAY SJSROIOLY, AND 
PIDLYS OLTYM, 
1.25MS PWHERE ,25M8! 25, ON PAGE @, 


eww CONTINUE PROGRAM syoecccscosecsen *Oe 


}PROGRAMMING OVERHEAD SHOULD BE FACTOREO INTO ALL 
JPRECISE DELAY MEASUREMENTS ANDO ARE DEFINED AS 
FFOLLOWSS eecceece 
PNOVA COMPUTER(PROM CALL TO RETURN) acencoce 
S54 MICROS PLUS 16,4 MICROS PER MILLISEC, 
ane COMPUTERCFROM CALL TO RETURN) seseee 

24,4 MICROS PLUS 5,4 MICROS PER MILLISEC, 
1800 COMPUTER (FROM CALL TO RETURN) wevene 
’ 15,2 MICROS PLUS 3,2 MICROS PER MILLISEC, 
ISUPER NOVA COMPUTER (FROM CALL TO RETURN) ecnecs 
' $5.8 MICROS PLUS 3,2 MICROS PER MILLISEC, 
HSUPER NOVA SC COMPUTER (FROM CALL TO RETURN) oes 
} $1.7 MICROS PLUS 1,8 MICROS PER MILLISEC, 
1 PROGRAMMING OVERHEAD DATA MAY ALSO BE USED TO 
ICALCULATE DELAY ACCURACY, 





$9085 


Qs 
02 
a3 
a4 
05 
a6 
a7 
a6 
rT) 
10 
14 
12 
13 
14 
16 
16 
17 
18 
19 
28 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
3 
32 
33 
34 
35 
36 
37 
3e 
39 
40 
43 
42 
43 
44 
45 
46 
47 


e4731 
Q4732 
84733 
04734 
84735 
04736 
04737 
04740 
0474) 
04742 
04743 
04744 
04745 
04746 
84747 
04750 
04751 
64762 
04759 
04754 
047565 


04756 
04757 
04768 
04763 


04762 
04763 
04764 
04765 
04766 
04767 
04773 
@4774 
84772 
64773 
04774 
04778 
04776 
04777 


eMAIN 


649425 
044425 
630425 
152440 
@50240 
033400 
150420 


DLTYMs 


STA 8,OLY.4 
STA 1,0LY.5 
STA 2,0LY,6 


#EAVE OUR ACTS, 


024421 
121000 OLTYS3 
1810800 
161405 
eeeaes 
063600 
080774 
010240 
151404 
000772 
820404 
024404 
@30404 
084401 


OBOC08 OLy.4i 
O80008 OLY,S% 
@00008 DLY,63 
C8088 WERKE 


U 
@54414 OIvor 
Bsaaye 
125120 
101100 MbV,.23 
142412 
142408 
125106 
175404 
0807735 
176441 
1760420 MOv,.33 
Q@24e1 
@0e008@ MDy,53 
177768 MOveil 


$UB80 2,2 

STA 2,QMEGA HCOUNTS MILLISECS 

LOA 2,08,35 #GET # MILLISECS ARGUMENT, 

NEG 2,2 paNO NEGATE, 

LOA 1, WERK 9(C) WERK © NEG COUNT FOR iMS, 
MOV 1,8 

MOV 8,8 pee THESE 

INC @,8,SNR ' ee INSTRUCTIONS FORM 
IMP eo 

SKPDN © ' ee THE DELAY 

JMP ed ' ee TIMING LOOP, 
T8Z OMEGA 

INC 2,2,82R PINC DOWN MULTIPLY COUNTER 

JMP OLTYS 1L00P FOR NX MILLISEC, 


LOA @,0LY,4 
LOA 1,025 
LOA 2,DLY.6 
JMP 1,3 


] 
8 
0 
® 


PRESTORE act 


AND RETURN, 


AC@s(ACB,ACLI/AC2 , ACL & REM 


STA 3,MDV,5 
LDA S,MDVeS 
MOVZL 1,1 
MOVL O78 


$uB84 2,80,8Z2C 


Sus 2,0 
MOVL dol 
INC 3,3,82ZR 
JmMP MDV,2 


SUBO 3,3,5KP 


$uU8Z 3,5 
JMP @MDV,S 
a 

=28 


pOIVIDE 


1@886 MAIN 


@} 
2 
83 
4 
es 
86 
87 
8 
oo 
18 
ii 
12 
18 
14 
15 
16 
17 
$8 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
36 
33 
32 
33 
34 
35 
36 
37 
38 
39 
48 
41 
42 
43 
44 
45 
46 
47 
48 
49 
52 
54 
52 
535 
54 
55 
56 
37 
58 


05880 
65001 
05082 
25003 
05004 
05085 
e5ee06 
05007 
65210 


e5e12 
05012 
050135 
05014 
o5e35 
05016 
05017 
o5020 
e502) 
05022 
5028 
o5a24 
e5025 
e5e26 
05027 
85850 
a5e31 
65832 
26853 
w5e34 
85835 
25836 
05837 
05042 
05043 
05042 
5843 
85044 
5045 


05846 
05047 
65058 
@585% 
05052 


0314008 
021808 
101905 
0014201 
122415 
061402 
15140@ 
080772 
170000 


054443 
#30252 
020222 
835800 
851800 
825200 
655000 
146414 
B0e4dud 
151400 
454193 
280778 
112408 
0250278 
o20252 
112422 
020787 
143444 
820413 
020226 
113762 
050273 
126408 
125148 
151224 
080776 
125308 
644307 
002405 


o24212 
121428 
048271 
006772 
OBER 


SRHi 


Ci7OKs 


Sms 


SM,it 


SM,23 


SM,38 


SM, 48 


3M,5t 


tSEARCH ROUTINE 


tCALL SEARCH ACL ENAME 

’ TABLE ADOK, 

’ RETURN ©» NOT FQUNO 

, RETURN » FOUND, AC2SPOINTER 
LbA 2,8,3 PAC2STABLE ADDRESS 
LOA 0,0,2 

MOV @,8,SNR 

JmP i,3 yNOY FOUND 

SUB 1,8,SNR 

JmP 2,3 HFOUNO 

Inc 2,2 

JMP SRHe! 

1780008 


NSIZE MEMORY 


STA 3,3M,5 
LOA 2,LA8T 
LDA 8,C212 
LOA 3,8,2 
STA 2,0,2 
LOA 1,8,2 
STA 3,0,2 
Sus 2,1,S8ZR 
JMP SMe2 

InC 2,2 


PSAVE RETURN 

1GET END PROGRAM ADDRESS 
FLOADER BUFFER 

HSAVE (C) OF LOCATION 

MWHILE IT IS VERIFIED 
FLOCATION EXISTS, 

PRESTORE (C) OF LOCATION 
CHECKING IF LOCATION EXISTS 
yNO, 3 STEP BEYOND 8 

YES, INC TO NX, 


MOVZL@ 2,2,SNCj)CHECK FOR < 32K 


JMP SMyi 

SuB 0,2 

STA 2,CMEND 
LOA O,LAST 
Su5B 8,2 

LOA @,Ci7OK 
AND# 2,08,827R 
JMP SM,4 

LOA 3,07408 
ANDS 0,2 

STA 2,SMAX 
SuB i,1 
MOVOL 1,1! 
MOVZR 2,2,8Z2R 
JMP 492 

MOVS ii 

STA 1,LMSK 
JMP @8M,5 


LOA 1,017 
INC 1,8 
STA 0, SMAX 
JMP SM,3 

@ 


SSTILL UNDER S2K MAX, 
#DEOUCT BUFFER FOR BIN, LOR, 
HSAVE END OF MEMORY, 


PHOW MANY SECTORS WILL MEM 
pALLOw 
PMAXIMUM, 28 OCTAL 


PROOM FOR $7 OR LESS 
MAX SECTOR COUNT 


IGENERATE # SECTORS 
1 MASK 


MMAX SECT CNTR20 





{e087 


@1 
G2 
83 
G4 
85 
6 
a7 
G8 
a9 
12 
{1 
12 
18 
14 
15 
16 
{7 
16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
38 
33 
32 
33 
34 
35 
36 
37 
36 
39 


25855 
aSe54 
o5085 
65886 
85857 
05068 
@5063 


05062 
05263 
oSa64 
05065 
25266 
05067 
05872 
05071 
o5e72 
e5e73 
65074 
05075 
05876 
05277 
05100 
wSi8s 
o81e2 
05188 
08104 
05105 
O5306 
05107 
oSite 
OS3ii 
o5i12 
oSiiss 
oSii6 
o5115 
o5116 
O5417 
o512¢ 
BSi24 
o5122 
05123 
oSi2a 
05125 
a5126 
o5127 
w5130 
OSist 


oMAIN 


820510 
181805 
080413 
020255 
B4e5e2 
2405982 
088407 


054474 
1892408 
040473 
040473 
240474 
040474 
030258 
B18255 
151220 
021988 
@24226 
101902 
181308 
123408 
024215 
1224145 
wOO754 
024462 
122415 
600746 
024225 
122415 
000442 
620454 
125004 
COG434 
030216 
034217 
162635 
142052 
000412 
024445 
123402 
224435 
127128 
125120 
123682 
040491 
12433 
@86737 


GA,O! 


GATMS 


GA, 


JLINE SCAN SUBROUTINE 
IBYTE POINTER 3 LINCT 


PCALL 


U 
U 
U 


LOA 
MOV 
JMP 
LOA 
sya 
STA 
JMP 


STA 
$u8 
STA 
STA 
STA 
STA 
LOA 
T82Z 


GETATM 


RETURN = ACOS # 


@, FINO 
@,8, SNR 
GA,i 

O,LINCT 
@,SLNCY 
@,8RCH 
GAayt 


3,GARET 
8,2 

@, ANAM 
@, ANUM 
@,SkCH 
@,FIND 
2,LINCT 
LINCT 


MOVZR 2,2 


LOA 
LOA 
MOV 


A,8,2 
$,0377 
8,8,S2C 


MOVS 6,0 


ANU 
LOA 


SUH 1,8,SNR 


JMP 
LOA 


SUBH 1,4,SNR 


JMP 
LDA 


Subs 1,8,S5NR 


JMP 
LOA 
MOV 
IMP 
LOA 
LOA 


ADCZ4 3,0,SNC 
AOCZ# 0,2,SZC 


JMP 
LOA 
AND 
LOA 


1,0 
1,042 


1,054 


Gab 
41,0215 


EXIy 
1,5RCm 
4,1,S2R 
Exel 
2,C68 
3,C67 


ASSN 
1,C7 
1,2 
1, ANUM 


ADOZL 1,1 
MOVZL 1,1 


ADO 
STA 
18z 
Jmp 


1,8 
@, ANUM 
FIND 
Gael 


ACLENAME 
(C)s1 IF CR OELIMITER 


INO NAME OR & YET 


PREMEMBER LINCT 
HSET SEARCH FLAG 


PCACQ)R @ BYTE 


ISPACE DELIMITER 


ICOMMA DELIMITER 


1CR DELIMITER 


pSEARCH FLAG ON 


yNOT # 


PASSEMBLE OCTAL # 


#GET MORE 





$0068 MAIN 


G1 
2 
a8 
a4 


@5332 
05153 
0$136 
051435 
#5136 
06137 
05140 
@5141 
051442 
e5143 
a5i4a 
25145 
05146 


05347 
05150 
O5153 
05182 
05153 
w5156 
05155 


85156 
05157 
Q5L68 
65164 
03162 
05163 
e5164 
05165 
05166 


o24214 
123408 
224423 
030427 
153404 
OBU731 
127128 
127128 
1251208 
125882 
048413 
010416 
680722 


620412 
048253 
1HLe21 
181840 
020405 
224403 
0G2401 


080806 
600068 
660080 
BOv8bR 
080008 
BB88e8 
176¢0e 
aeeese 
880067 


ASSN3 


EX, 18 


ExyT3 


GARET: 
ANAM 
ANUME 
SLNCT3 
SRCHM3 
FINDS 
Ch70K3 
C54% 
C73 


LDA 
AND 
LOA 
LDA 
ANO 
JMP 


1,037 
1,@ 

1, ANAM 
2,Ci7OK 
1,2,S8ZR 
GAei 


ADDZL 1,13 
AUOZL 1,1 
MOVZL 3,1 


ADO 
STA 
1872 
IMP 


LOA 
STA 


MOVZ 0) @,SKP 


1, 
@, ANAM 
FINO 
GAek 


@,SLNCT 
@,LINCT 


MOVO 8,8 


LDA 
LDA 
JmPp 


Se oo os 


@,ANUM 
1, ANAM 
OGARET 


176080 


7 


PASSEMBLE NAME 


13 LETTERS YET ? 
HYES, IGNORE THE REST 
95 LEFT 


1GET MORE 


PCLEAR CARRY 
9SET CARRY 





10889 


@1 
ee 


05167 
Q5178 
wSi71 
05172 
@5173 
05174 
03375 
#5176 
5177 
es2e0 
08204 
05202 
05208 
05204 
65205 
05206 
05207 
wS2te 
w52h1 
wS2i12 
wSs2i3 
os2i4 
e5ei5 
05216 
05217 
05220 
05221 
o5222 
o52es 
o5224 
e5225 
05226 
“5227 
85236 
05251 
5232 
05259 
O5256 
45235 
#05236 
05237 
05240 
08244 
05242 
5245 
05244 
05245 


eMAIN 


e1e8172 
081466 
054447 
020447 
836205 
119060 
021008 
640404 
006325 
Q06325 
86824 
eoeaee 
006324 
006263 
30174 
G25056 
125435 
125408 
886323 
o0632e4 
200264 
#24256 
086323 
006324 
006267 
024254 
886323 
006324 
Q86272 
024255 
006323 
¢86324 
ve6ass 
B24174 
086325 
030045 
025008 
1259205 
082403 
@55004 
001400 
OeBRL8 
005242 
685776 
686002 
oe622e5 
206238 


MED? 


HED.43 


HRETS 


IPRINT WEADER 


T$Z Sw 

JMP 8,3 

STA 3,HRET 
LOA @,HRETo)L 
LOA 2,MODE 
ADD @,2 

OA 8,0,2 
STA @,HED,1 
PCRLF 

PCRLF 
MESSAGE 

@ 

MESSAGE 
M8644 

LOA 2,UNIT 
LOA 1,CYLT,2 
INCw® 1,51,5NR 
Inc t,1 
TYP21 
MESSAGE 
MSG45 

LDA 4,40 
TYP2Z4 
MESSAGE 
$646 

Loa 1,S8€C 
TyPZ1 
MESSAGE 
MSG47 

LOA 1,SC 
TYPZ\L 
MESSAGE 
MSG17 

LDA 1,UNIT 
TyPZ4 

LOA 2,45 
LOA 1,%),2 
MOV 1,1,5NR 
IMP @HRET 
LOA 3,4,2 
JMP 8,3 

@ 

oi 

M8G2 

MSGS 

MSG6S2 

MSG35 


PPRINY HEADER ONLY ONCE 
HFOR EACH COMPLETE TEST 


#THE MODE DETERMINES 
NTHE TYPE OF OPERATION 
HIN PROGRESS 


PYRECAL OR SEEK, ETC, 


WCYL= 


PREADA 


PSECTe 


paSECTe 


PUNIT! 


#6 RECAL 
$i SEEK 
92 READ 
tS WRITE 


{e090 


as 
2 
03 
G4 
85 
a6 
a7 
a6 
ay 


05246 
05247 
05250 
05253 
05252 
e525 
05254 
05255 
05256 
05257 
o5260 
05263 
@5262 
@5263 
@5264 
e5265 
05266 
05267 
05270 
65271 
05272 
05273 
05274 


05275 
05276 
05277 
05300 
o5se1 
05382 
05385 
85304 
053285 
05506 
@5387 
v53ie 
05311 
05312 
v53193 
@5314 
“5315 


oMAIN 


162541 
192528 
040534 
Q5465i1 
021468 
048512 
0109506 
020263 
040266 
620257 
240028 
614820 
o205i1e 
18500 
10¢428 
w405e4 
014476 
880446 
006475 
042020 
010474 
000775 
oe2466 


070477 
153128 
153122 
00452 
054462 
044465 
040465 
610460 
600465 
806354 
086325 
200324 
CO6114 
630452 
176120 
157036 
002466 


Ci 
Gi 


GGt 


CKERS 


SINHB: 


Caqé 


SUBOL 46,0,SKP 
SUBZL 6,2 
STA 6,FSYGC 
STA 3,GRET 
LOA 8,2@,3 
STa A,PATT 
I8SZ GRET 
LUA @,VARST 
STA @,VARPT 
LOA @,Ca 
STA 8, 1DX6 
OSZ I10x@ 
LOA 8,,5C 
MOVS @,9 
NEG 3,2 

STA 8, GHC 
OSZ FSTGC 
Jme CC 

JOR @PATT 
STA 0,@IDX8 
T8zZ Gwe 

JMP GG 

JUMP @GREY 


READS 2 

ADDZL 2,2 
ADUZL 2,2,S2C 
JmMP CK4 

STa 3,CKRET 
STA 1,8AD 

STA ¥,G6000 
T8Z FSTGC 

JMP CK 
HEADER 

PCRLF 

MESSAGE 

MSG22 

LDA 2,FSTGC 
AOCZL 3,3 
ADOZ# 2,3,SEZ 
JMP @CKRET 


HCHECK DATA,,, 

PGENERATE OATA,., 
YC(CA)SSTART AQURESS 
$C(SC) SNUMBER OF SECTORS 
pwORD FOLLOWING THE CALL 
POEFINES THE PATTERN, 


IGEN/CHECK FIRST SwiTChH 


HGENERATE DATA 
ISTORE IN MEMORY 


HIF Sw3e{ DON'T PRINT ERRORS 


pA ERROR DETECTED 


POON'T PRINT HEADER 
"ADDR GOOD BAD WORD 
yETC, 


PEXIT ITF PS ERRORS, 





{6891 ,MAIN {8292 ,MAIN 


Oi BS 

G2 65316 2063525 PCRLF 2 JOPERATOR SPECIFIED WORDS 
O35 85517 e24n2e LDA £,IDX8 es 

04 85320 2263528 TYPZ4 PPRINY ADORESS Q4 B53714 54443 VARGO! STA 3,VARET 

@5 @5321 024447 LOA 1,6000 @5 95372 018266 ISZ VARPT 

66 05322 806322 TYPACS #GO0D DATA G6 453735 438266 LDA 2,VARPT 

@7 45323 824444 LOA 1,6AD 87 05374 834265 LDA $,VARSP 

08 65324 886322 TYPACS #BAQ OATA 88 05375 172015 AOCH 3,2,SNR 

a9 O89 05376 O80488 JMP VAR, JEND INPUT 
1®@ 05325 820257 LOA @,CA 10 05377 821800 LOA 0,8,2 

{i 08326 024828 LOA 1,10X8 11 e548 O02404 IMP @VARET 

12 05327 106480 Sub @,1 12 05483 330263 VAR,L% LDA 2,VARST 

13 48330 86328 YyPZi pwORD® 13 a8aa2 950266 STA 2,VARPT 

14 65331 202432 JMP @CKRET 14 65403 00¢767 JMP VAR Ged 

is 15 

16 05332 B10432 CKas Isz FsrTce HCOUNT ERRORS 16 05484 @800008 VARET3 @ 

17 09333 080401 SMP ed 17 

18 85334 2014280 JmP 8,3 PRETURN 18 

19 19 . 

20 @5335 26430 CC: JSR OPATT #CHECK THE DATA 20 JRANDOM NUMBER GENERATOR 
24 85336 226020 LUA 1,#@T0X8 21 

22 88337 186414 $uss 8.1,S57R 22 Y6485 Y54431 RANE STA 3,,U003 PGENERATE A RANDOM 
23 88342 084735 JSR CKER HCHECK ERROR 25 05406 850427 STA 2,,U002 

24 w8341 018425 TSzZ Gwe 24 05407 044625 STA 1,,U001 

25 05342 880773 JmMpP CC 25 B5418 628247 LDA @,RANDOM PNUMBER IN ACO 
20 68343 e18421 1sz FSTGC PANY ERRORS 77? 20 oS4it 064412 JSR ,U05Se 

27 Q5344 080402 IMP 4#2 27 5412 w34426 LOA 3,,U028 

26 65345 g8e433 JmP CCt INO, EXTT 28 v54135 163008 ADD 3,8 

29 08346 080477 READS @ PIF SwSe{ DON'T PRINT ERRORS 29 “5414 940247 SY4 @,RANDOM PSTORE NEw VALUE, 
32 @8347 103120 ADDZL O,8 3@ 05415 111108 MOVL 8.2 

31 05358 163122 ADDZL 4,8,S2ZC 33 US6i6 oSO417 LDA 2,,UD82 

32 O5S5i 824th JMP &GRET 32 w5a17 v244y5 LDA %, 400) 

33 95352 906325 PORLEF VYES, PRINY THE 35 05420 082416 JMP @,UD23 

34 85353 w2443! LOA <,F8TGC HTOTAL # OF ERRORS 3a 

35 65354 G26525 TYPZ4 35 05421 924428 ,uNSA? LOA $,,U021 PRANDOM CONTINUED 
36 88355 us6s24 MESSAGE 30 Q5A22 Y44415 STA 1,,UD1@ 

37 65356 o06S20 M&G58 y"ERRORS" 37 65423 135126 MOVZL O,1 

38 05557 e824u5 JMP OGRET 38 U5424 125320 MOVZL 191 

39 39 95425 034412 DSZ .v019 

40 65860 wiedee CCys 132 GRET INORMAL RETURN © 2 4@ 05426 628776 JMP 492 

4) 5364 be2de! IMP @GRET 44 5427 187000 ADD @,1 

42 42 854350 12a512¢ MOVZL 1,1 

43 95362 e0e@e8 GRET! ® 43 03431 125128 MOVZL $,1 

44 Y5363 BBedee CKRET? 2@ 44 y$432 123900 ADD 1,8 

45 @5364 goddee FS7GC? 4 45 @5433 HO14B8 JmP a,3 

46 05365 880808 PATT3 @ 46 054354 BOO002@ ,UOeL: 8B 

47 05366 USAGGR GHC! 8 47 05435 veoees .upe2: 3B 

48 05367 w@8Aee BAD! a 48 95436 288000 .UN83s 2B 

49 05378 B8e8ee GOODS 0 49 O5437 200002 .UNias 2B 


3@ 08440 53031 ,UO203 55851 
Si 05441 e@aoin ,uoets 10 








® " ®@ 7 @ 


160935 ,MAIN {0894 ,MAIN 

ei ) BINARY TO DECIMAL ASCII CONVERT al 

@2 } CONVERTS A DOUBLE PRECISION, TWO'S COMPLEMENT NUMBER @2 @5a77 21401 LDA O,1,3 ) RESTORE POSITIVE VALUE 
as » 70 AN ASCII DECIMAL CHARACTER STRING @3 45500 113022 AODZ @,2,SZC 

04 @4 95501 125400 INC 1,1 

es P INPUTS D IN ACY, AC2 (HIGH, LOW) 85 @5502 321400 LDA 8,6,3 

86 86 25583 18700e ADD By! 

07 y OUTPUT? ASCII CHARACTER STRING, TERMINATED BY A 87 88504 175400 Inc 3,3 ) BUMP AC3 TO NEXT TABLE ENTRY 
06 ’ NULL WORD, @8 45505 175400 INC 3,3 

cr) } CHARACTERS PASSEO RIGHT ADJUSTED, O89 BS6506 054445 STA 3,.F012 

1@ ’ . BIT 6 s @, IN ACE TO TYPING 10 95507 a2n4a3 LDA @,,FDil 1 GET DIGIT 

11 ’ ROUTINE , 11 @5510 34216 LOA 3,C68 

12 12 O5511 116414 SUBH v,3,SZR 

13 ' STRING OF FORM! 12 95512 810407 18Z OLGIT 

14 ’ NNNNNNNNNN (NULL) 14 955143 eau735 JMP ,FO99 } PuT LT OUT 

15 15 

16 } CALLING SEQUENCE 16 95514 ga6S24 .Foe7s JSR #IMESS 

17 ’ JSR 2080 17 93515 206126 MSG23 Tage 

18 ’ RETURN 18 

19 19 95516 @02402 JMP @,FDG3 p RETURN 

20 } DESTROYEDS ACi, AC2, ACS, CARRY 20 

23 } UNCHANGED! ace 21 o5817 eBeoes ,Foves @ ) SAVE aCe 

22 22 95520 gaeoee Foods @ } SAVE RETURN 

23 65442 084456 .OBDS STA 3,,F003 ) SAVE RETURN 23 95521 wsveee DIGIT: @ 

24 05443 040454 STA O,,FOO2 } SAVE aCe 24 

25 95444 220502 LDA 4,,F038 ) POINT TO HIGH ORDER POWER IN 25 05522 036652 .Foes: 35632 1 {@ee9 

26 } TABLE 26 5823 145900 145080 

27 05445 040506 STA 8,,FO12 27 06524 082765 2765 1 1d0e8 

28 5446 176400 $uH 3,3 28 05525 160480 168400 

29 05447 054452 STA 3,01GIT 29 85526 800238 230 1 1Qee7 

30 28658 044500 ,Foesot STA 1,,F018 } SAVE ABS (NUMBER) 3@ 05527 113200 115200 

31 05451 e5050e STA 2,,FO10e1 31 95830 aneoi7 17 I idew6 

32 05452 034447 LDA 3,OIGIT 32 058313 w4i1ee 4i1¢¢e 

33 @5453 175004 MOV 3,3,82ZR 33 y5532 soanel { 1 (Bee 

34 05454 206502 JSR @BDTYP } PUT OUT SIGN OR DIGIT 34 686533 183248 15242 

35 05455 224473 LOA L,.F018 } RESTORE ABS (NUMBER) 35 eeees2 eROX 18 

36 85456 G30473 LDA 2,,F01001 36 95534 weoaee a t teed 

37 05457 220476 LOA @,p.F022 ) GET OCTAL 87 37 85535 e2dsaee {8000 

36 B5468 040472 STA 8, eFO11 » COUNT IT UP IN STORAGE 38 95636 geared @  1Be03 

39 45461 034472 LDA 3, F042 » CURRENT POINTER TO POWER OF 39 05537 281750 1ae0 

40 1 10 TABLE 40 05540 vooeee ) } Owe? 

4i 44 05541 gouiad 100 

42 42 w5542 avenge ) 1 {Qeet 

43 065462 21401 .FO98s LOA 4,1,3 } LOW ORDER WORD 43 95543 “oeos2 10 

44 05463 101235 MOVZRW 0,@,SNR 44 95544 ovooee a 1 1Q008 

45 05464 018436 TSZ OIGIT 45 95545 gae0vul { 

46 ¥8465 101005 MOV @,@,SNR } TEST FOR ENO OF TABLE 46 95546 905522 ,Fo3s@: F085 ) POINTER TO CONVERSION TABLE 
47 85466 wooa2e JMP F097 } DONE 47 95547 goveee ) ) END OF TABLE INOICATION 

48 05467 112420 SuBZ 0,2 48 eBvele eROX 6 

49 85470 021400 LDA 8,8,3 } HIGH ORDER WORD 49 

S@ @5471 101088 MOV @,@,SNC 5¢@ O5550 veeee2 ,Foi@s BLK 2 } SAVE CURRENT DOUBLE WORD 
51 08472 106041 ADCO 0,13,S8KP 51 95552 wegewe .Fpiis 2 ) COUNT UP DIGIT WORD 
52 05473 196442 SUBO 2,1 52 05553 gaeeee .Foies 28 } POINTER TO POWER OF TEN ENTRY 
53 05474 v10456 18Z ,FOLL y COUNT UP OYGIT 53 

54 05475 125013 MOV@ 1,3,SNC » TEST FOR <@ 54 95554 o00e53 .Fo2es "6 p ASCII "en 

55 85476 aau764 JMP ¥FOO8 1) KEEP SUBTRACTING 55 05555 680057 ,Fn221 57 p ASCII "Q" of 


56 56 95556 g@4357 BOTYP? TYPE yPUT CHARACTER ADORESS, 








{0095 ,MAIN 


@ 
2 
3 
4 
05 
a6 
07 
08 
9 
10 
ii 
12 
18 


@5557 
e5560 
05564 
05562 


e556 
B5564 
05565 
05566 


240243 
044244 
e5a245 
001406 


020245 
e224 
830248 
083408 


Saci 


STace 


PSAVE ACB, 1,2 
STA G,SAVO 
STA 1,3AV4 
Sta 2,Sav2 
JMP @,3 


PRESTORE 4C0,1,2 


LOA 8,SaAVO 
LOA 1,SAvi 
LOA 2,S5AV2 
JMP @,3 





$2096 MAIN 


Q4 
a2 
as 
a4 
65 
86 
07 
a6 
89 
12 
44 
12 
138 
14 
15 
16 
{7 
18 
19 
28 
21 
22 
23 
24 
25 
26 
27 
26 
29 
38 
31 
32 
33 
34 
35 
36 
37 
38 
39 
4@ 
41 
42 
43 
44 
45 
46 
47 
46 
49 
Su 
Si 
52 
53 
54 
55 
56 
57 


05867 
05570 
@5571 
65572 
05573 
05574 
05575 
05576 
@5577 
06608 
0560) 
65682 
O56A9 
“5604 
85685 
@5686 
65647 
o561¢ 
o56i14 
o5612 
056143 
65614 
05615 
05616 
05647 
05620 
05621 
05622 
05625 
05624 
05625 
65626 
65627 
65638 
05631 
@5632 
Q5633 
05634 
eS635 
85636 
05637 
056428 
05643 
05642 
65643 
35644 


B54514 
023400 
O40545 
040512 
e6e21e 
e20512 
“0405132 
063610 
080777 
064610 
o20224 
106415 
080442 
020503 
1664}4 
B00405 
286525 
080766 
e65i48 
638472 
@1e471 
034223 
136495 
688456 
020474 
451223 
187403 
167701 
068403 
@21800 
1976¢8 
245808 
010456 
080402 
oeaa3ss 
175804 
600743 
610447 
6863825 
020444 
046255 
B1b44S 
C6S514 
660777 
260211 
082437 


INP? 


TTWAIT? 


INP ,@8 


INP .43 


PTELETYPE INPUY ROUTINE, NON INTERRUPT 


' 


PCALL INPUT 


, ADDR OF BYTE POINTER 
} RETURN » CR ONLY 
U RETURN » NORMAL 


PINPUT IS STORED Real IN 7 BIT ASCIY 
PINPUT IS TERMINATED BY CR, (215) 18 
HSTORED, LINE FEED ECHOS CReLF 


HNO DATA STORED, 


STA 3,INPRET 
LDA @,@0,3 
STA @,BASE 
STA 8, 8PTR 
NIOC TTI 

LOA @,Mi45, 
STA O,CHCNT 
SKPDN TTI 
UMP P| 

DIAC 3,7T1I 
LDA 0,0377 
Subs B,1,SNR 
JMP RUB 

LOA @,C12 
SUBM @,1,5ZR 
JMP 4e3 
PCRLF 

IMP TTWAIT 
004S 4,7TO 
LOA 2,8PTR 
TSZ BPTR 

LDA 3,C2158 
SUS $,35,3NR 
JmP CRCUD 
LDA 8,0177 
MOVZR 2,2,SNC 
AND 8,1,SKP 
ANOS @,3,5KP 
JMP #3 

LOA 0,8,2 
ADD @,1 

STA 1,0,2 
ISZ CHKCNY 
JMP 42 

UMP OVFL 

MOV 3,3,SZR 
JAP TIWAIT 
TSZ INPRET 
PCRLF 

LOA @,BASE 
STA B,LINCT 
TSZ INPRET 
SKPHZ TTO 
JMP yet 

NIOC TTO 

JMP @INPRET 


INPUT CONTINUES, 


HGET BYTE POINTER 


PWATT FOR INPUT 
PREAD INPUT CHAR 


pHUS OUT 


PLINE PEED TYPED 


VECHO CHAR 


yCR CODE 


HCR TYPED 
17 BIT MASK 


HSTORE INTO RH 


PSTORE BYTE 


paACSe@ IF CR TYPED 
PALL DONE 


swAlT FOR ECHO TO 
PPINISH 
PCLEAR INTERRUPT 


10097 MAIN 


8 
82 
Qs 
aa 
65 
a6 
7 
86 
09 
16 
44 
12 
13 
i4 
15 
16 
17 
18 
19 
20 
2k 
22 
23 
24 
265 
26 
27 
28 
29 
38 
34 
32 
338 
34 
35 
36 
37 
38 
39 
48 


06645 
05646 
05647 
05650 
85651 
05682 
05653 
05654 
05655 
85656 
05657 
85660 
05664 
05662 
05663 
066646 
25665 


05666 
05667 
056790 
05671 
05672 
05673 


05674 
05675 
65676 
66677 
057098 
05701 


05782 
857903 
05794 
08705 
05786 
05767 
65718 


020441 RUB: 
024437 
122408 
000726 
014453 
@14433 
@30431 
151222 
021008 
181008 
000405 
024224 
107488 
045000 
161300 
B6isii Russ 
ObO711 


@e6325 OVFL!s 
@86324 
086104 
614413 
O14413 
888785 


@20486 CrReods 
4112415 
@007937 
e20226 
176420 
@80717 


OGeGC@ BASES 
O80808 INPRET! 
@90808 BPTRI 
@@G020 CHENT! 
177615 miaq5,2 
eee0e12 Ci23 
@B0177 Ciz73 


LOA @, M115, 
LDA %,CHCNT 
$UB 1,0,$NR 
UMP TTWAIT 
082 BPTR 
08Z CHCNT 
LOA 2,B8P7R 
MOVZR 2,2 
LOA 0, 8,2 
MOV @,@,8NC 
JUMP RUBS 
LDA 14,0377 
AND 8,3 

STA 1,8,2 
MOVS 0,8 
DOAS @,TTO 
JMP TTWAIT 


PCRLF? 
MESSAGE 
MSG21 

O8Z BPTR 
08zZ CHCNT 
UMP TTWAIT 


LDA 8, BASE 
SUBM 8,2,SNR 
UMP INP,L 
LOA 8,C377 
Sub 3,3 

UMP INP,D 


HNOTHING TO RUB 


1GET BYTE 


PSAVE RH ONLY 

HECHO LH (RUBBED OUT) 
HECHO RUBBED CHAR 
PLINE OVERFLOW 


P°XINPUT OVERFLOW" 
HBACKUP BYTE POINTER 


HYES 


}0898 ,MAIN 


@1 
2 
UR) 
a4 
5 
06 
a7 
08 
oo 
18 
14 
12 
13 
14 
15 
16 
17 
18 
12 
26 
23 
22 
23 
24 
25 
26 
27 
28 
29 
38 
3M 
32 
33 
34 
35 
36 
37 


05711 
85712 
65713 
65714 
O5745 
05716 
65717 


65720 
65721 
05722 
05723 
65724 
5725 


05726 
05727 
05738 
65731 
05732 
05733 
05734 


05735 
25736 
68737 
05740 
05741 
05742 


644241 DCr3 
OS57133 
046245 
0442435 
036757 
010254 
080806 


G@2745 OCT,18 
082761 
082774 
0858135 
005024 
683831 


814632 DNT: 
014617 
644856 
002617 
@82632 
040064 
680800 


085760 ONT,3% 
005752 
885485 
Oa5744 
BG5743 
005747 


#OISK COMMAND TABLE 


044243 
O57111 
046245 
044243 
030757 
018254 
@ 


HOISPATCHES 


RE 
wy 
SK 
RCL 
LuP 
OLAY 


POATA TABLE 


14632 
$4617 
044856 
2637 
2632 
48864 
@ 


HOISPATCHES 


FLZ 
Ful 
RAN 
ONES 
ZEROS 
PATI 


PREAOD 

PWRITE 

1SEEK 
PRECALIBRATE 
1,00P 

DELAY 


HFLOATING ZERO 
HFLOATING ONE 
PRANDOM 

PALL 21'S 

PALL ZEROS 
PALBLLG PAT 





}@099 MAIN {8108 MAIN 


a1 G1 
B2 05745 10240 ZEROSS SUB B,d,SKP G2 PENDING STATUS 
OS 05744 102008 ONES! Adc 2,8 @3 05767 B47385 MSGit eTXTE JENOING STATUS] 
@4 05745 881400 UMP 8,3 @4 144504 
a5 as 043536 
@6 O8746 {55555 155535 06 081640 
@7 Q5747 20777 Paris LOA B,,eh @7 Q4u724 
68 859750 eeiace Jue 0,3 8 e5e726 
69 ao eee123 
1@ 05753 e8o808 @ 10 PRECAL 
11 08782 620777 Fiat LOA @,,e1 11 85776 142722 MSG2: eTXTE JRECAL j 
12 05753 101225 MOVZR 8,@,SNR 12 248703 
13 96754 e129 MOVOR 2,8 13 BOA714 
14 08785 040774 STA O,FLIeL 14 028882 
18 05756 861480 JMP 8,3 15 ISEEK 
16 16 26002 142523 MSG3s eTXTE [SEEK t 
17 08787 eeeese a 17 2457085 
18 @5768 e2e777 Fizs LOA B,,04 18 ebeoit 
19 08761 303243 MOVOR 0,@,SNC 19 PINTERRUPY FROM DEVICE 
20 95762 \eRr22e AOCZR 8,6 20 G60O5 247341 MSG98 eTXTE LINTERRUPT FROM DEVICE | 
21 05763 240774 STA O,FLZ=1 2i 142724 
22 65764 081400 JmP 8,3 22 154322 
23 23 050128 
24 25765 826366 CYL ADD! LOA O,CYLNX 24 126324 
25 05766 01420 IMP 8,3 25 151306 
26 26 046747 
27 042240 
28 Q53305 , 
29 143711 
30 120305 
31 OTT) 
32 FOISK 
33 6021 144504 MSG13s ,TXTE JOXSK 
34 245523 
35 ONG4Ls 
36 emeeit 
37 PSEEK ERRORS 
38 @6825 1462523 MSGid4s ,TXTE JSEEK ERRORS 
39 045705 
40 142640 
41 151322 
42 4513517 
43 224523 
44 @@ue1l 
45 HTOTAL SEEKS 
46 26034 147724 MSG153 ,TXTE [TOTAL SEEKS 
47 040724 
48 120314 
49 142523 
58 Q45725 
51 eda523 
52 CObS11 
53 #NO READY UNITS 
54 06443 147536 MSGi68 ,TXTE JNO REAQY UNITS] © 
85 151240 
56 040705 
57 054506 
58 052640 
59 144516 
68 a51724 


rey 
@ 
af 


O10 MAIN 

61 080800 
62 

63 e6855 047125 
64 192311 
es 120072 
06 880066 
07 

06 a6e57 e4esed 
60 040724 
10 120872 
ii SOCCER 
12 

13 06063 147708 
14 646615 
15 047181 
16 120104 
‘7 152123 
4a 144722 
19 043516 
20 120672 
23 080008 
22 

23 06074 83326) 
a4 047248 
26 046525 
26 142502 
27 051722 
26 046648 
20 184101 
3® 200886 
34 

32 06104 047311 
33 052528 
34 120324 
35 053317 
36 151305 
37 446306 
38 183717 
39 082602 
40 

41 86114 642101 
42 181104 
43 O43441 
44 147747 
45 084504 
46 040502 
47 084504 
46 147727 
a9 0423822 
50 080808 
54 

S2 06126 Be0811 
53 

54 86127 147787 
55 642522 
56 1201235 
37 151327 
58 452511 
59 142724 
68 @84516 


MSGi78 


M8Gi88 


MSG198 


MSG265 


MSG21i8 


MSG22! 


M8G2S5 


MSG25! 


PUNITS 
eTXTE JUNITS 3 


NOATAL 
oTXTE JDATAS | 


HCOMMAND STRINGS 
eTXTE SCOMMAND STRINGS | 


$16 NUMBERS MAX, 
eTXTE (46 NUMBERS MAX, ! 


FINPUT OVERFLOW 
eTXTE LINPUT OVERFLOW) 


yaDDR 6000 Bad WORD 

eTXTE {ADOR 6000 BAD WORD) 
» TAB 

oTXTE | 4 

PWORDS WRITTEN 

aTXTE ([WOROS WRITTEN H 


O102 ,MAIN 
oi 688011 
02 

@S 86137 147727 
@4 042322 
o5 128123 
06 142722 
07 @42101 
@8 004441 
69 000800 
18 

11 06346 044303 
12 141705 
13 120113 
14 147727 
i5 @42322 
16 142648 
17 151322 
16 1513317 
19 084523 
20 208880 
21 

22 06168 142520 
23 046722 
24 141649 
25 442519 
26 845783 
27 153648 
28 151317 
29 120184 
38 151305 
3i 147722 
32 @51722 
33 o0e@8i1 
34 

35 06374 842101 
36 151104 
37 851705 
38 120123 
39 151385 
40 147722 
4i 804722 
42 Q00011 
43 

44 06204 142528 
45 046722 
46 040648 
47 042104 
46 442722 
49 @54523 
Se 142642 
53 4151322 
52 454317 
53 OBOb11 
54 

55 96216 g46504 
56 048724 
57 142648 
58 154322 
59 151317 
68 684523 


MSG268 


M8G6273 


MSG265 


MSG295 


MSG3S85 


MSGSi8 


WWwORDS READ 
eTXTE [WORDS READ 


ICHECK wORD ERRORS 
eTXTE CHECK WORD ERRORS 


PPERM CHECK WORD ERRORS 
eTXTE [PERM CHECK WORD ERRORS 


PADDRESS ERROR 
eTXTE JADORESS ERROR 


YPERM ADORESS ERROR 
eTXTE {PERM ADDRESS ERROR 


FOATA ERRORS 
eTXTE {DATA ERRORS 


i 





O105 MAIN 


86254 


06247 


66253 


06264 


06264 


06267 


a6272 


06276 


66301 


e60ai1 


142722 
042101 
C8ORB14 


453327 
158318 
8847058 
Q20808 


1426515 
147635 
054722 
192240 
447717 
@51648 
048515 
146314 
143240 
451317 
808848 


142523 
152303 
454347 
@00123 


840520 
051525 
0ECORO 


026646 
026477 
088808 


084783 
026734 
068008 


148530 
048184 
000865 


142623 
158303 
a0e05s 


051643 
144765 
026724 
868800 


147807 
048317 
@08248 


849502 
120104 
eeosee 


HSGS21 


MSG53t 


M8G393 


M8G408 


MSG4i8 


M8G433 


M8G445 


M8645! 


M8G465 


M8G471 


M8G51% 


M8652: 


PREAO 
eTXTE JREAD | 


WRITE 
eTXTE UWRITE i 


PMEMORY TOO SMALL 
eTXTE {MEMORY TOO SMALL FOR | 


PSECTORS 
eTXTE {SECTORS} 


PASS 
eTXTE [PASS} 


} oe 
eTXTE | ote) 


CYL@ 
oTXVE ICYLel 


tHEAD® 
eTXTE JHEAD@) 


HSECT« 
eTKTE JSECTO{ 


1eSECTo 
eTXTE [HSECT@) 


#6000 
eTXTE 16000 | 


yBA0 
eTXTE [BAO 3 


8104 ,MAIN 
81 

G2 G6304 vazuar 
83 143747 
a4 geeaae 
o8 

86 26307 e42a2 
07 @41317 
268 eeug4e 
09 

18 06312 146240 
4 040717 
12 120404 
13 1513265 
14 147722 
1s egose2 
16 

17 @6320 1514305 
18 147722 
19 081722 
20 aeoeee 
21 
22 06924 0473068 
23 144504 
24 043516 
25 046640 
26 046798 
2? 049648 
28 042104 
20 128322 
38 1514305 
34 147722 
32 eee322 
33 
34 86337 144726 
35 142645 
36 852717 
37 geose4 
38 
39 #6343 142520 
ae 246722 
ai 042248 
42 182101 
43 120184 
44 1513688 
48 147722 
46 a$1722 
47 eeeeis 
48 
49 96354 144535 
Se 144525 
53 142648 
52 181322 
53 151347 
54 @84523 
55 oeeess 
56 
87 @6363 153324 
58 120131 
59 643801 
6@ 144501 


MSG535 


NSO543 


MSGS5% 


M8563 


MSG573 


MSG59t 


MSG61S 


MSG622 


NSG63! 


g*poc# 
eTXTE Y*00C%) 


rpeDoBr 
eTXTE 1 *DOB"] 


3L0A0 ERROR 
eTXTE | LOAD ERROR) 


FERRORS 
eTXTE JERRORS) 


VENDING MEM ADOR ERROR 
eTXTE LENDING MEM ADDR ERROR) 


IT IMEOQUT 
eTXTE JTIMEQUT) 


PERM DATA ERRORS 
eTXTE SRERM DATA ERRORS | 


MISC ERRORS 
eTXTE (MISC ERRORS 


HTRY AGAIN 
eTXTE TRY AGAINI 


@1e5 .MAIN 

ai BGe116 
e2 

83 06378 044303 
e4 141725 
h) 120115 
a6 147727 
07 842322 
ee 142640 
89 184322 
18 154317 
11 880006 
12 

13 66461 244303 
14 £41705 
15 120145 
16 147727 
17 042322 
18 042257 
19 182101 
20 120101 
21 151305 
22 147722 
2s 051722 
24 TTT 
25 

26 w6418 142520 
27 046722 
26 141648 
20 046516 
30 1536428 
34 127504 
32 a4asea 
33 040726 
34 142640 
35 451322 
36 004523 
37 0800008 
38 

39 06431 347305 
4o 444504 
43 43516 
42 042240 
43 OSi711 
44 120113 
45 42104 
46 151104 
47 142640 
468 451322 
ag 153347 
50 esagae 
54 

52 06445 47311 
53 142724 
54 £41722 
55 o4u5ie 
56 043516 
57 128385 
58 144504 
59 045523 
6u v8eeee 


M8G643 


M8G651 


MSG668 


MS$G673 


MSG68: 


HCHECK WORD ERROR 
eTXTE [CHECK WORD ERROR} 


HCHECK WORD & DATA ERROR 
eTXTE JCHECK WORD/OATA ERRORS 


PPERM CHK WD/DATA ERRS 
eTXTE {PERM CHK WO/DATA ERRS 


PENDING DISK AODDA ERROR 
eTXTE JENDING DISK ADOR ERROR) 


PINTERCHANGE DISK 
eTXTE LINTERCHANGE OISK{ 


@186 MAIN 

G1 

@2 06450 054724 MSG69I 
Os 142520 
O4 1522428 
a5 14251¢ 
86 047240 
7 646525 
os 142502 
69 124322 
10 143317 
1} 042240 
12 51731 
13 120335 
14 es52525 
15 143322 
16 141501 
17 051765 
18 200248 
19 

20 66477 142724 
21 152123 
22 647311 
23 420107 
24 @47125 
25 152311 
26 120240 
27 BAGRLA 
28 46507 142523 
29 045745 
3¢é 142648 
34 151322 
32 151337 
33 050240 
34 152101 
35 1206118 
36 1423582 
37 153726 
38 142705 
39 120116 
48 120242 
4\ 020240 
42 06525 142523 
43 045725 
44 151257 
45 141765 
46 146101 
47 152248 
48 046711 
49 147705 
50 152125 
54 064523 
$2 G888280 
53 ¥6540 142722 
54 O42103 
55 153657 
56 144722 
57 142724 
$8 152240 
59 0467114 
6@ 147765 


M8G7B3 


MSG713 


MSG723 


MSG733 


ITYPE THE NUMBER OF DISK SURFACES 
eTXTE J TYPE THE NUMBER OF DISK SURPACES | 


ITESTING UNIT 
eTXTE {TESTING UNIT 4 


eTXTE (SEEK ERROR PATH BETWEEN 


eTXTE CSEEK/RECAL TIMEOUTS 


eTXTE CREAO/WRITE TIMEOUTS 


t 


0107 MAIN 


@1 
G2 
3 
4 
@5 
G6 
@7 
06 
9 
16 
i 
42 
i3 
14 
i5 
16 
17 
18 
19 
20 
24 
22 
23 
24 
25 
26 
27 
28 


@6559 


06566 


152125 
884825 
CO8BR0 
142523 
420324 
147783 
051516 
446317 
120305 
4153525 
152341 
6443505 
@51785 
020856 
1446128 
120824 
G47104 
420131 
£42815 
120131 
147724 
141640 
a47317 
144724 
052616 
027505 
9a5218 
088888 


MBG745 


MS8G751t 


eTXTE CSET CONSOLE SWITCHES, { 


eTXTE CHIT ANY KEY TO CONTINUE, <1Snet2>[ 


1@$@8 MAIN 


a4 
2 
83 
4 
85 
a6 
07 
a6 
a9 
1@ 
41 
12 
13 
i4 
15 
16 
17 
18 
19 
20 
23 
22 
23 
24 


06604 
06676 
06770 
876108 


o7ehd 
e7012 
o7e1s5 
o7Bi4 
67815 
v7816 


078357 


67045 
07046 
67047 
27250 
47054 
07052 
07653 
07654 


868072 
086872 
088028 
esse? 


8202195 
030845 
625801 
106434 
a028435 
882085 


087837 
845584 
420128 
142722 
144744 
B33248 
8890802 
Beene! 
0898006 
CeB801 
808008 
488020 
080288 
028080 
188833 


UBUFFE 
CBurFt 
VARI 
PRGEND? 


STARTS 


eBLK 58, 
eBLK 56, 
oBLK 16, 
@ 


LOA ,C33 

LDA 2,NEST 
LDA 1,1,2 
SUBZH O,1,SZR 
JmP 043 

UMP 03 


#GET (C) OF EGGSe1 LOCATION, 


eLOC #28 
eTXTE JOKP RELI 64 


288084 
Be8006 
488001 
880008 
890020 
888080 
880820 
188833 


2 END 


@109 ,MAIN 
AL 041762 
ADCAL 8804064 
ADDER 009126 
AECNT 8082793 
ALL OBL373 
ALLRE 008312 
ALLei 983373 
ANAM 605157 
ANUM 805160 
ASSN 005132 
BAD 8285367 
BASE 085782 
BUTYP 985556 
BEGIN 808500 
BIGSK 9@2445 
BPTR 905784 
BUFF 888267 
c 805246 
C10 aeeved 
Ciees eee225 
Cia2 008370 
CiOK BeeRds4 
C12 0057087 
C1400 Bo5i102 
Ci7 20ea212 
Ci7aK 885010 
Ci74nH 08596) 
ClI7OK 805164 
Ci77) «=—8e@S710 
C2 7@00235 
C2e 001627 
C2002 480575 
C2es, evs221 
C212 eeege22 
C215) oea2es 
c3 eeo2ti 
C33 Oee213 
C37 aee2i4 
C377 Hae22a 
C4 eueo24 
Cae eeo215 
C480 983145 
C4k OGeu55 
C54 005165 
C6a Oo8216 
C67 @8G217 
C7 ee5166 
C7400 880226 
CA ob0257 
CALAD 086574 
CaLI8 844725 
CALRT 884145 
CBUFF 806676 
cc @A5335 
cct au5360 
CO1K 081737 


54/47 
37715 
15/51 
12/15 
147/29 
15/84 
14/44 
29/08 
87/28 
67/21 
87/48 
98/34 
96/14 
93/34 
14/37 
43/29 
96/15 
14/25 
18/18 
13/05 
13/17 
15/47 
13/26 
96/25 
54/16 
13/86 
86/17 
58/48 
88/85 
96/36 
13/82 
32748 
15/50 
13/135 
a4/hh 
135/14 
19/15 
13/03 
13/87 
13/06 
13/10 
13/04 
13/89 
55/4ae2 
13/18 
87/35 
13/10 
V/ii 
87/49 
13/19 
14/17 
56/45 
16/38 
13/34 
69/17 
14/28 
98/21 
94/28 
35/12 


56/12 
377/48 
69/14 
28/31 
56/13 
29/06 
25/18 
29/24 
88/24 
67/54 
88/82 
91/07 
96/51 
94/586 
17/87 
457/43 
96/31 
25/50 
90/84 
23/43 
22/07 
43/26 


97/39 
54/39 
22/22 
86/36 
58/53 
88/30 
97/40 
64/33 
33/39 
58/12 
327/16 
45/86 
66/24 
87/36 
20/43 
20/30 
88/82 
55/22 
29/19 
20/12 
56/25 
39/27 
68/3} 
19/04 
45/15 
88/32 
86/41 
26/33 
61/52 
66/32 
83/15 
7R/LS 
1687/83 
91/20 
91/48 
33/14 


36/27 
58/12 
58/16 
25/39 


66/12 
87/85 


91/48 
97727 


48/69 
96/32 
o2/14 


56/48 


55/43 
437/34 


26/12 


39/38 
33/38 


96/395 
56/10 
108/087 


87/28 


49/25 
55/37 


87/44 
87745 


32/15 
66/06 


83/29 
78/24 


91/25 
35/16 


37/63 


6isia 
29/26 
06724 
86/26 
97/34 


48/12 
97/286 
34/54 


61/38 


62/26 


34745 


66/84 


96/22 


O1s4i 
07/32 


g4asii 


34/55 


98/13 


35729 


37/06 


29/09 


88/25 
68/26 


97/08 


69/19 


86/55 


38/44 


97/19 


38/24 
91/18 


37/09 


29/22 


97/23 


69/35 


40/37 


97/36 


40/18 


37/32 


29723 


97/36 


43/19 


56/46 


Bile ,MAIN 


Co202 
CUSK 
CFLL 
CHAR 
CHARI 
CHA,S 
CHCNT 
CHECK 
CHORZ 
CHRET 
CiOms 
CKi 
CK4 
CKER 
CKRET 
CKSwW 


CLRB 
CURRB 
CMOS? 
CMD.2 
CmM0,3 
Cm0.4 
CmD,5 
CMEND 
Cnroc 
COMA 
CRALL 
CrcoDd 
CRLF 
CSeP 
csc 


CSER 


CSIF 
CSP 
CSP. 
CSP2 
CSP3 
CwONT 
CwOeE 
CwOEP 
CWER 
CWERP 
CwRD 
CwRT 
CXL.V 
CYLAD 
CYLF 


CYLND 
CYLNX 


CYLSW 
CYLT 


284005 
O4U8S01 
800580 
auas2ee 
004550 
804355 
005785 
086353 
BY4555 
084356 
@veb622 
aa5s12 
00535352 
605275 
0053963 
206355 


Oo1143 
706335 
002616 
202653 
UB2673 
002781 
@02716 
008276 
Oese5i 
088573 
801756 
85674 
BE4545 
B88262 
OWBSG2 


042742 


608173 
0ue227 
O88250 
OBB623 
Q8b252 
Bee274 
080142 
000146 
@00116 
Qvbi22 
Gv82351 
OB40R4 
884750 
@05765 
BeeES2 


HB4012 
@80366 


004144 
BOSCS6 


66/183 
14/35 
14/34 
72/38 
74/09 
74/11 
96/18 
16/15 
74/16 
74/084 
20/83 
90/37 
98/32 
90/29 
98/33 
16/38 
38/56 
52/18 
66/39 
15/28 
16/20 
15/38 
49/19 
SA/14 
61/08 
51/87 
14/26 
14/44 
19/07 
21/45 
96/35 
15/32 
14/208 
14/30 
62/08 
51/45 
53/47 
12/26 
13/21 
43/22 
20/02 
13/24 
14/38 
12/18 
12/19 
12/18 
12/14 
13/25 
66/17 
83/16 
36/34 
12/07 
48/30 
65/21 
70/10 
15/45 
69/15 
12/06 


66/45 
20/33 
38/56 
72/44 


74asha 
96/44 
61/45 
74/28 
74/13 
20/16 
90/42 
91/16 
91/23 
90/45 
27/86 
39/99 
$2/26 


25/49 
61/23 
19/34 
49/34 
51/82 
51/17 
S1A13 
86/35 
23/16 
19/14 
35/87 
97/27 
74/23 
51/36 
38/59 


51/48 


25/85 
61/35 
54/33 
20/138 
96/37 
56/14 
28/46 
28/49 
28/25 
28/28 
20/18 
66/44 
83/34 
99/24 
15/83 
53/143 
65/26 


42725 
70/17 
53/34 


70/14 
23/10 
S9/t3 
73/33 


7asy9 
97/83 


74/32 
74/21 


91/4 
33/48 
40/27 
$3/16 


48/39 
58/06 


51/22 


367138 


53/34 
40/53 


52/05 
48/38 


55/314 
28/23 


58/38 
59/47 
59/31 
56/48 
58/43 


33/35 
54/49 
65/35 


40/31 
78/20 
33/36 


40/46 
74/84 
97/087 


75/44 
74/31 


91/44 
54/43 
40/43 
53/25 


49/18 
58/17 


35/15 


42/131 
52/19 
4o/ii 


20/31 


59/83 


59/14 
59/19 


38/44 
65/29 
06/12 
46/25 


38/48 


41/28 
74/27 
97/24 
73/17 


34/22 
41/06 
65/25 


61/39 


58/22 


36/18 


42/22 


53/05 
49/51 


64/t5 


59/29 


48/34 
66/16 
99/24 


38/42 


42/30 
76/25 


97/37 


34/34 
46/12 
65/32 


52/14 


51/30 


36/22 


42/32 
53/18 


46/07 
66/50 


48/33 


38/36 
477/30 
66/38 


57/83 
53/43 


48/16 
70/09 


40/35 





@iti MAIN Bile ,MAIN 


46/26 46/88 46/24 48/14 48/28 53/12 S3/i4 DOALL #863515 16/285 18/38 22/24 25/34 34/49 36719 36/38 
53/28 54/18 54/2. 55/12 86/24 61/24 65/28 37/38 
65/38 89/19 DRO 082167 S8/13 39/23 39/43 41/20 
DACNT 688275 14/31 59/84 61/146 DRVS 888022. Visits 13/82 13/04 413/85 2gsii 32/25 
DADAT 800277 14/33 34/48 36/18 36/37 377/19 38/22 48/49 OV¥D 884155 71/87 
DARAN 082173 38/26 38/28 39/45 OwTt 062176 36/17 39/44 40/135 
DARET 682165 38/12 39/32 39/35 39741 EGGS 81422 11/32 29/40 
DAT BU28S2 377/30 377/35 ENTYM 084645 Bi/ie 61/44 
OATG 8820106 19/36 37/09 EVOUN 260272 14/26 25/86 S2/18 95/24 34/16 34/40 58/13 
DATi 982886 19/35 37/86 EXIT 805152 87/48 88/19 
OATER BOG1S6 12/17 26/37 59/289 EX,1 805147 87/43 88/16 
DATFG Bu2ei6 19/39 37/84 37/87 37/18 377448 37/146 37/18 FATAL @u@202 12/38 56/16 57/28 577/42 57/49 58/44 58/11 
DATF1 @62014 19/36 37/158 59/22 59/24 59/32 68/26 68/13 61/19 62/48 
DATP 802012 19/37 37/12 FBIG 042447 43/32 45/17 457/45 48/17 
DATR 8802082 19/32 37/84 FDOSRE 803454 38704 98/24 38/25 
DATRH 902125 38/18 39/88 39/24 FOS,2 881443 38/16 
DAT, 82040 36/20 37/34 38/40 FIND 865163 87/148 877/23 87/56 66/13 68/29 
DAT,@ 8862063 38/28 99/25 FIRST 880383 14/37 18/286 
DAT,1 802073 38/39 $9713 Fa BO5752 36/32 39746 98/33 g9sil 90/14 
DAT.2 002117 39/02 39/19 FLIT 002451 43/356 43/23 45/47 48/31 
OAT.S 082143 386/46 39/21 FLO1 02172 38/31 39746 
DAT.4 082146 39/22 39/26 FLOZ 8282173 38/32 39/47 
DAY,5 na2160 39729 39/36 FLZ 065768 36/31 39/747 98/32 99/18 99/21 
DAXRT 800237 15/36 408/07 45/36 FMHLT 024026 66/47 68/84 
DAXRwW 822252 48/16 41/85 44/21 FMHOO @04043 68/87 68/45 
OAXSK @01772 197/43 36/36 36/43 FMTOV M4014 66/37 66/82 
DAX, @02174 34/52 36/39 48/87 FMTw 604026 66/89 66/46 
DAX,@ 882215 48/22 41/22 FMUNI 882618 48/36 65/15 
DAX,1 862228 48/31 4i/to FNQIK 883673 15/52 65/087 
DAX,2 842250 41/05 41/16 FGIKL #83716 65/26 66/34 
OAX,5 082266 40/39 44/18 FQIK2 8037352 66/01 66/31 66/33 
OcY 005711 51/44 51/46 98/93 FAIKS 883773 66/24 66/32 
OCT,1 84572¢ 51/46 96/13 FSTGC 885364 98/86 98/28 98/36 90/42 91/16 91726 947/34 
OECOC 9042847 734338 73/32 73/34 73/42 937/45 
DECQOT 004256 73/26 737/25 FTERL 802533 47/33 a77/4as 
DECP 804264 73/24 73/26 FTER2 262546 47735 47/38 477/44 
DECTB 604383 73/07 73/42 FTERR 882512 46/28 47/16 
DELAY 8806516 16/34 22/15 22/26 24/22 53/53 FxaDD 820625 41/29 11/38 20/11 
OBXT B24567 71/06 7A/M7 FxX.2 008633 28/15 20/29 
OIGIY 885521 93/29 93/32 93/45 94/18 94/23 FX,3 808644 20/20 20/26 
OlVO 884762 83/32 857/30 FX,4 008657 19/33 28/37 20/47 20/48 20/49 
OIVDO 004352 71/04 62/18 G 085247 413/17 68/85 
OIVIO eb415) 71/88 GARET 885156 87/16 68/22 886/24 
OLAY 883231 $3/42 98/18 GAYM 9805062 45/44 87/18 
DLOOP 384160 71/16 78/15 GA,2@ 6080535 87/16 87/34 87/37 
OLTYS 864744 65/89 85/17 GA,1 8005070 67/12 67/16 87/24 87/57 88/27 88/14 
OLTYM 884791 18/25 85/84 GCS 082723 45/20 SO/i4 58/23 Si/d2 51/58 
OLY.8 804724 83/19 83/32 GCS.1 8627513 51/58 S2/15 53/38 53/53 
DLYe.) 884725 8S/itt 83/24 83/31 GEN 8063532 16/36 56/28 
OLY.2 804726 83/12 63/25 83/32 GENRE 083257 54/37 55/35 57/31 62/46 
OLY.3 864727 63/15 83/26 83/335 GETAT 066327 16/18 so/ti 49/22 5@si2 51/88 51/42 53/86 
DLY.4 604756 85/83 83/18 85/23 53/44 63/18 63/21 63/29 
DLY.S 884757 85/82 a5/i10 85/24 GETPA 2863352 16/17 52/06 52/28 ; 
OLY.6 804768 85/03 85/28 85/25 GG 0852708 98/22 928/25 
DNSEE 862443 439/28 43/24 43/31 44/82 44/14 45/26 45/87 GOOD 8853576 98/35 91/85 91/49 
45/4ah 47/27 GRET 268362 98/87 98/10 90/26 61/32 91/38 91/40 91741 
ONT 088726 58/16 58/16 98/22 91/49 
ONT.1 805755 5osis 98/32 GTCOM 882583 477/86 48/87 46/18 


BilS MAIN 


GUDAT 
Gwe 
HO 


MEADE 
HED 
HED, 1 
HED,R 
HI1A0D 
HMSK 
MMX 
HNUM 
WRET 
HSS 
HSSRE 
HSS.1 
HSw 


TACAL 
TALL 
TCaul 
ICHK 
ICLRB 
ICRLF 
ICs] 
1CSw 
ICYLF 
TOLY 
10x@ 


TOX) 

IFMHY 
TFNGK 
IGATM 
IGCS 
TGDAT 
IGEN 
TGUD 
IHED 
THSS 
TINP 
IMESS 
INDEX 
INHMS 
INTL 
INILO 
INIL. 
INITE 
INKHD 
INP 

INPRE 
TNPUT 
INP,@ 
INP ah 
INTER 
INTHT 


084010 
065366 
008256 


@G6554 
0851367 
005282 
004025 
883656 
080305 
083462 
001455 
285240 
085617 
083654 
@8365% 
S00172 


000374 
000315 
@08255 
0083359 
088555 
000525 
088357 
@88555 
BwOS14 
GOBS16 
oaee20 


O8G02) 
084007 
680375 
O20327 
OBA346 
04065 
B8bS52 
04044 
OBG354 
O68350 
O0CSS1 
806324 
G20620 
062454 
B0854} 
eee7355 
088717 
00654) 
G04122 
@25567 
805703 
826331 
BG6620 
B25635 
Bb1B1S 
066361 


65/37 
90/19 
14/16 
ays33 
69/25 
16/33 
16/35 
80/11 
66/59 
20/06 
14/39 
3esie 
3esia 
89/26 
45/15 
63/09 
63/13 
12/25 
39/03 
89/04 
15/54 
18/04 
13/34 
15/18 
15/28 
18/12 
15/38 
15/36 
15/83 
15/05 
16/82 
90/15 
16/83 
66/15 
16/52 
18/44 
15/29 
66/48 
15/47 
66/49 
15/35 
18/18 
15/16 
W5/ih 
18/28 
43/10 
15/24 
21/38 
15/24 
16/24 
69/34 
15/16 
96/12 
16/14 
96/37 
96/52 
11/04 
16/32 


66/46 
98/24 
26/28 
42asia 


24/27 
69/24 
89/15 
68/18 
63/46 
38/21 
31726 
3O/16 
69/87 
63/09 
63/37 
63/35 
33746 
40723 


16/36 
16/285 
21/89 
16/16 
16/28 
46/15 
25/07 
16/30 
21/36 
16/34 
51/83 
98/23 
25/23 
667/21 
7/44 
16/18 
63/16 
68/35 
16/16 
68/22 
167/31 
16/17 
16/14 
167/12 
48/36 
43/18 
16/24 
24/59 
21/30 
16/12 
70/84 
96/12 
96/49 
38/28 
97/32 
97/29 
21/25 
557/28 


91/24 
32735 
63/20 


29/31 


32/38 


30/18 
89/42 


63/38 


34/07 
40/41 


21/15 


47/28 


514/04 
91/83 
25/22 
66/47 


63/24 


47/21 
19/42 
457/35 
21/44 
19/19 


96/53 
49/17 


23/86 
56/28 


91747 
32/54 
65/18 


§8/85 


30/20 


697/45 


347/20 


43/04 


47/29 


Sisid 
91/4) 
25/26 


63/33 


94/16 


45/508 


65/10 


96/57 


58/089 


64/26 


387/54 39/16 40/46 
70/81 70/82 70716 


58/33 60/25 90/38 


38/22 31/62 


347/30 38/34 38748 
46/38 51/43 63/37 


Sais 51/22 9a/%4 
91724 


97/35 
61/35 


66/28 


@1i4 ,MAIN 


INT, 1 
IPDEC 
Ips 
TeusT 
IR 
IRAN 
IRC 
IRCAL 
IRDAT 
TRE 
IRE2 
TRUP 
1s 
TSAC 
ISCNT 
ISET 
1SM™ 
ISRH 
ISTAC 
ISTAT 
ISsTse@ 
Isu 
TTacy 
It. 
ITT.! 
IvT,2 
ITy,3 
ITTt,4 
ITy.5 
ITZ) 
IVAR 
Iw 
IwDAT 
Iw? 
IXLAY 
T,000 
1,650 
KEYS 


KN 

KS 
LAST 
LAYUP 
LHD 


LINCT 
LITSK 
LMSK 
LOCK 
LS 


LuP 
LUPSW 
M315, 
M20 

Mai 

MOVs! 
MOV.2 


001043 
B0O321 
088353 
008368 
800347 
8083562 
800352 
880565 
208344 
@035615 
205616 
@80715 
860351 
000317 
008356 
8083356 
0860337 
@e8526 
008328 
028242 
288340 
888364 
Cees2e2 
001071 
@G1113 
Ber112s 
B81125 
BG11S1 
BO11S5 
B4as23 
B@B554 
048350 
020845 
06856) 
06024) 
820545 
@RBSES 
264661 


084665 
024064 
eab252 
804782 
neB207 


280253 
002446 
200507 
024660 
O8@216 


@8S024 
ooe2ua 
085786 
C04204 
@80671 
004777 
004765 


2s/i2 
15/88 
15/34 
15/39 
15/38 
15/41 
15/38 
15/44 
15/27 
64/34 
61/40 
21/087 
18/32 
{5/86 
15/37 
15/21 
15/22 
15/138 
15/87 
14/04 
15/23 
15/438 
18/@9 
23/15 
25/22 
25/25 
25/27 
25/24 
25/18 
{5/10 
15/19 
15/31 
15/28 
15/46 
14/03 
15/26 
15/42 
79/16 
88/24 
79/735 
79/36 
14/12 
14/83 
12/39 
45/37 
14/13 
43/308 
14/41 
79/18 
12/46 
63/25 
53/34 
12/385 
96/17 
74708 
20/24 
65/51 
85/33 


24/26 
16/289 
16/25 
63/19 
16/26 
16/26 
16/29 
17/20 
32/12 
61/37 
62/53 
21/25 
16/26 
16/07 
57/8a 
16/21 
16/22 
16/19 
16/88 
24/87 
16/23 
16/37 
16/10 
25/04 
25/34 
25/36 
25/32 
25/36 
25/40 
16/14 
51/24 
16/27 
$213 
16/32 
21/16 
28/18 
18/26 
79/24 
68/27 
80/04 
68/05 
38/20 
B3sit 
38/19 
63/17 
53/35 
45/44 
32746 
79/27 
3as/17 


98/17 
44/26 
97/02 
71/23 
20/51 
85/43 
85/38 


63/27 
S2/it 


17/23 
34/52 
62/58 


62/04 


29/33 


34/53 


19/208 
79/34 
82/09 
82/138 
80/07 
40/17 


32/32 
65/12 
87/13 
48/20 
86/49 
79/28 
32/40 


a7/37 
97/38 
71/38 


63/31 
34/351 


17/22 
38/23 


66/25 


38/24 


65/141 
79/39 


88/25 
86/235 


33/14 
70/83 
87/24 
48/26 


82/08 
33/87 


b7/31 


17/23 
40/20 


48/21 


88/06 
82/12 
86/36 
40/08 
67725 


42/17 


64/18 


58/19 


50/28 


88/13 


48/2 
86/17 


57/87 


51/25 


51/26 


88/28 


42/27 
96/52 


62/11 


B115 ,MAIN 


MDV,3 
MOV,5 
MESS 

MESSA 


MESSR 
MISC 


“LOOP 
MODE 


M51 
MS2 
MSAV 
MSG61 
MSG15S 
MSGi4 
MSG15 
MSG16 
MSG17 
MSG618 
MS8G19 
MSG2 
MSG20 
MSG21 
MSG22 
MSG23 
MSG25 
M&G26 
MSG27 
MSG26 
MSG29 
MSGS 
MSGSB 
MSG31 
MSG32 
MSGS3 
MSG39 
MSG40 
MSG41 
MSG43 
M8644 
MSG45 
MSG46 
MSG47 
M8G51 
M§G52 
MSG5S 
MSG54 
“S655 
MSG56 
MSG57 


084774 
004776 
@e4205 
@06324 


804356 
080156 


04174 
OBR2C5 


BO1472 
001476 
8042098 
005767 
206023 
206825 
OB6R54 
086043 
B26058 
006057 
Q86065 
085776 
Q06074 
G06104 
OB6i114 
086126 
006127 
006137 
086146 
006160 
006174 
C2682 
Q06204 
66216 
ee6225 
OG623¢0 
VO6254 
006247 
686253 
886256 
086263 
66264 
006267 
O86272 
026276 
OG6S04 
086504 
886387 
0863512 
886320 
866324 


85/44 
85/30 
1Sy/ih 
16/12 
26/46 
30/86 
377/33 
51/19 
60/28 
89/27 
72/26 
76/2 
12/21 
60/12 
71/24 
12/34 
89/88 
38/26 
36/22 
71/04 
29/36 
27725 
27/29 
27/27 
22/48 
49/16 
58/26 
51/34 
89/47 
$1/20 
97/22 
98/41 
47/26 
27/31 
27735 
27739 
7/44 
27/35 
89/48 
27/37 
27/43 
69/49 
69/58 
27714 
27/16 
35/14 
31/29 
69/17 
89/24 
89/28 
69/32 
26/46 
26/50 
26/38 
26/44 
26/43 
91/37 
57/39 


65/44 
72/26 
18/28 
26/42 
31/28 
39/37 
517/33 
oa/32 
89/31 
727/29 


27/05 


71/28 
257%) 


31/16 

31/23 

71/07 
108/83 
188/33 
400/38 
104/46 
100/54 

89/36 
161/28 
101/13 
1BGs1 
161/23 
101/32 
4B1/44 

94/17 
101/54 
102/88 
162/11 
$62/22 

58/88 
108/16 
1627/44 
102/55 
185/83 
103/07 
183/t2 
183/24 

35/19 

49/09 
183/37 
183/44 
103/45 
1803/48 

6as2e 

68/33 
184/82 
184/06 
104/18 
104/17 

68/03 


85/42 
72/39 
22/47 
26/45 
357/18 
477/25 
51/48 
66/36 
89/35 
72/47 


28/43 


54/42 


71718 


181/03 


101/52 


182/35 


36/42 
50/05 


103/54 
183/56 


184/22 


82/07 
23721 
26/49 
35/48 
49/08 
58/87 
68/09 
08/48 
73/09 


S774. 


55/08 


71/22 


37/34 
51749 


24/29 
27/13 
36741 
49/15 
58/17 
89/14 
91/36 
74/23 


57/48 


56/11 


71/38 


183/29 
193/33 


25/29 
27/37 
37/22 
58/204 
88/35 
69/16 
97/21 
74/33 


58/82 


61/12 


71/31 


26/29 
29/35 
37/25 
50/87 
68/25 
89/23 


76/83 
68785 


66/82 


Bito MAIN 


MSG59 
MSG61 
MSG62 
MS$G63 
MSG64 
MSG65 
MSG66 
MSGo7 
MSG668 
MSG69 
MSG67@ 
MSG71 
M8672 
MSG793 
MSG74 
MSG675 
MSGy 
MSKBS5 
MULT 
MULTA 
NEST 
NOP 
NO,BS 
NUCAL 
OCTAB 
OMEGA 


ONES 
ORDIN 
OVFL 
PADD 
PADER 
PATS 
PATT 
PCRLF 


POEC 
POER 
PEXIT 
PHOR 
POCT 
POT 
PRGEN 
PRWTO 
PS 
PSKER 
PSKTO 
PSTAT 
PS,1 


PTAER 
PTCwO 
PYCWE 
PTCwP 


206337 
2H6345 
@26356 
026363 
006378 
A641 
@v6418 
@06434 
0064465 
006456 
086477 
226527 
¥e6525 
206549 
206553 
086566 
286005 
Ov185S 
Bv4i7} 
0e4172 
080045 
OUs4ai 
080567 
284655 
8242735 
2ee24e 


885744 
224054 
O85666 
081757 
888152 
005747 
BO53565 
086325 


204240 
080152 
204225 
@O1317 
004254 
001256 
0870108 
OG1S66 
@01415 
@21323 
BALS64 
082553 
O81S26 


BB1946 
881360 
081342 
BG1344 


24/36 
27/46 
27/51 
58/18 
5B/3b 
27/4? 
27/49 
57/46 
39/38 
30/87 
18/29 
47/22 
27/53 
27/55 
37/23 
37/28 
23/22 
24/12 
71/23 
74/22 
11/32 
16/35 
15/46 
78/35 
73/84 
14/02 
85/15 
36/28 
79/22 
96/46 
36/13 
12/16 
36/29 
90/289 
16/43 
25/28 
35/09 
49/14 
60/24 
90/39 
15/08 
42/22 
72/42 
27/26 
15/09 
25/20 
14/12 
27/56 
15/34 
27/32 
27/54 
16/25 
28/07 
28/44 
27/36 
27/48 
27/40 
27/42 


184/34 
104/39 
104/49 
104/57 
185/238 
105/138 
105/26 

68/16 
105/52 
166/82 
166/28 
106/268 
106/42 
186/538 
107/84 
167/15 
100/28 


82/16 
18/23 
53/29 
56/17 
60/17 
737/34 
43/28 


98/35 
79/4¢ 
97726 
56/14 
28/34 
98/37 
94/22 
18/27 
26/26 
35/17 
58/66 
60/27 
917/02 
73/06 
28/48 
76/88 
287/81 
73/02 
27725 
44/17 
28/55 
29/31 
28/286 
28/52 
54/34 
28/26 
28/47 
28/3) 
28/46 
28/25 
28/28 


185/39 


20/34 
$5/19 
61/22 
88/22 


48/68 


99/03 
79/41 


36/15 
58/26 
99/07 
91/20 
22/46 
26/39 
36/42 
51/18 
66/35 
91/35 


59/27 


147/25 


54/36 
28/29 
28/88 


188/88 
57/26 


82/28 


aesii 


88/38 
$6/23 


91/46 
23/28 
26/44 
37/24 
54/32 
68/28 
96/28 


106/286 


55/40 
28732 
28/53 


62/38 
61/46 
48/19 


81/45 


24/28 
27/12 
37/24 
66/26 
68/13 
96/52 


56/03 
28/735 
28/56 


65/25 
62/05 
48/238 


82/04 


as/i4 
29/32 
37/32 
58/16 
80/12 
97/28 


66/268 
26/38 


85/85 


25/15 
38/05 
39/36 
56/34 
80/15 


26/44 


B117 ,MAIN 


PYDER 
PTIME 
PTMS 
PTPAE 
PTPCW 
PTPDE 
PTSEK 
PTWR 
PT ww 
PT,1 
P,248 
P3577 
P,ACL 


P,AC2 
P.Cil 
P.Ci2 
P.Cis 
P,C48 
P,C68 
P.C7 
PeLST 
P,TAG 
QUEST 
RADD 
RALL 
RAN 
RAND 
RANDO 


RATIO 
RCALL 
RCL 

RCTYM 
RDATA 
ROCYL 


RO 
ROYUN 
RE 
REY 
READ 
RECAL 


RECL 

RELAL 
RELEV 
RELOD 
RELRA 


REL. 
REL .2 
REL,S 
REL,.4 
REL,.5 
REL.6 
REL.7 


001352 
084477 
@b1556 
801350 
@a1362 
BG1356 
8813527 
081537 
BO1552 
BBLS 
084405 
084317 
004543 


OR4316 
004402 
084485 
BR4404 
004486 
884316 
084483 
084224 
GH4315 
862614 
261760 
808177 
885425 
@86362 
800247 


001626 
BO8661 
Beseis 
OB3181 
003526 
@02472 


@ee200 
808175 
602745 
002755 
006347 
886352 


@05045 
@@1518 
@01586 
881585 
800250 


061521 
BESS! 
081540 
001547 
@G1563 
881605 
Bvi6i16 


a7/44 
13/12 
27/32 
27/38 
27/58 
277/46 
27/28 
27/34 
27/32 
28/395 
74/14 
72/31 
72/27 
76/46 
72/28 
747/09 
74/28 
74/26 
75/42 
73/82 
74/17 
72743 
739745 
15/39 
36/147 
42/38 
18/41 
16/86 
14/89 
38/29 
$8/20 
32/17 
15/44 
53/22 
54/22 
15/27 
43/44 
46/22 
12/31 
412/268 
52/84 
52/12 
16/26 
16/29 
66/38 
15733 
19/29 
19/308 
49/33 
14/12 
52/22 
32/20 
32/29 
32/37 
32745 
33/82 
33/84 
33/26 


28/37 
78/16 
28/48 
28/34 
28/49 
28/40 
26/14 
28/24 
28/15 
28/17 
75/23 
73/56 
72/42 


72/43 
73/28 
78/24 
73/15 
75/24 
73/23 
75/19 
73447 
73/564 
49/88 
36/24 
21/37 
36/32 
32/28 
21743 
39/04 
92/25 
337/38 
20/42 
98/16 
54/38 
61/46 
44/65 


22/23 
98/13 
§2/28 
34/33 
20/46 


54/18 
32/08 
32/87 
32/06 
347/09 
52/23 
32/26 
32/34 


32/53 
335/89 
33/23 
33/36 


28/23 


75/068 
73/18 


73703 


76/81 
75/22 
76/26 
73/07 


747/29 
49/24 


357/83 
92/22 
32/29 
34/68 
39/87 
92/29 
34743 


45/19 


22/43 


53/48 
39743 
38/35 


36/24 


34/18 
58/19 
35/08 
32/42 


33/19 
33/16 
33/32 


73752 
73706 
76/14 


73/55 


40/27 
36/11 
98/34 
32/37 
34asii 
39/34 


34/46 


45/22 


29712 
53/38 


46/26 
428/26 


34/31 
35/736 


74/24 
73/53 


49/30 


32/45 
347/32 
52/88 


45/25 


32/24 


52/89 
47/338 


39/85 


76/04 


74/25 


33/21 
37/83 
82/23 


45/28 


49/23 


53/24 


39/86 


76/21 
76/13 


36/25 
52/24 


45/355 


65/22 


52/07 


118 ,MAIN 


REL 8 
REL 29 
RETRY 
RE,1 
RE.2 
RE,20 
RE,2i 
RE,3 
RE,S1 
RE,32 
RE,4 
RE,41 
RE,42 
RE,45 
RE,44 
RE, 45 
RE, 46 
RE,5 
RE,6 
RFLG 
RLUP 
RSS 
R8RD 
RSTRT 
RUB 
RUB} 
RUNAL 
RVYMP 
RWRET 


RWTMO 
Rel 
56 
Sage 
sac 
SAH 
SAVO 


SAV1i 


SAV2 
SAVS 
SAVA 
Savac 
SAVU 
sc 


SCANX 
SCNT 
SCOKA 
SCORE 
SCRET 
SC,1 
$C,2 
sc,3 
SEARC 


081785 
O8172% 
CO8201 
OA5304 
085508 
OOS5i5 
0833527 
8833551 
803347 
@85353 
083582 
8835373 
6Q5400 
@83482 
005407 
COS414 
CB3417 
005421 
003427 
082166 
B@0311 
8605357 
063477 
evese4 
085645 
@08664 
oo1743 
084653 
088276 


208166 
@G1746 
081042 
Ge4e15 
085557 
BOS655 
b80243 


080244 


080245 
@802406 
81142 
OBO317 
OOs14s 
000255 


@02453 
082274 
Q04524 
004517 
002324 
@B2301 
BB2305 
O02311 
G86326 


34/42 
35/26 
12/32 
56/36 
56/42 
86/19 
66/11 
86/29 
58/39 
58/42 
59/82 
69/08 
59/17 
59/13 
59/085 
59/26 
59/28 
60/82 
66/89 
38/39 
14743 
48/16 
61/87 
18/09 
96/24 
97/12 
19/40 
81/00 
14/32 
56/335 
§8/27 
12/23 
38/14 
23/09 
65/34 
15/86 
63sii 
14/05 
95/89 
14706 
95/18 
14/07 
14/08 
25/18 
16/07 
25/17 
14/15 
41/15 
62/22 
43/17 
15/37 
79/09 
78/18 
42/10 
42/16 
42/28 
42/19 
16/19 


34/44 
35/15 
58/22 
56/39 
58/85 
62/47 
58/26 
61/48 
58/43 
68/45 
61/47 
Sosit 
597/23 
69/19 
59/24 
59/29 
59/32 
61/55 
62/32 
39723 
56/08 
187/26 
61/21 


97/62 
97/17 
35/23 
81/47 
29/37 
57/3@ 
61/08 
28/55 
36/21 
23/23 
66/54 
95/83 
63/39 
27/82 
95/09 
26/47 


33/42 
23/86 
25/36 
23/07 
25/36 
25/33 
43/25 
63/34 
45/49 
39/14 
79/17 
78/25 
42/23 
42/21 
42/29 
42725 
Sasit3 


35/83 


58/43 
58/02 
62/53 


39/42 
58/24 


36/25 
62/63 
54/18 
57/33 
61/31 
56/32 


23/29 


27/45 
S3/a5 


337/13 
23/26 
235745 
26/27 
25/44 
26/06 
56/18 
65/28 


39/17 


79/04 
42/35 


58/15 


59/06 
62/52 


40/4 
64/10 


36/89 
54/28 
57/34 


62/42 
61/30 


32/56 
33/86 


95/05 
25/41 


26/38 
32/52 
$6/44 
66/04 


ayeit 


42/36 


5is4s 


61/18 


44/16 


55/96 
57/35 
66/27 


33/82 
3/41 
95/i1 


27/ii 
36/56 
57/62 
89/395 


4i/i4 


62/43 


58/25 
87/36 


33/37 
60/38 


32/55 


39/18 
57/41 


42/18 


56/67 
58/15 


60/364 
95/04 


68/22 


42/50 
62/06 
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SEC 


SECOU 
SEEK 


SEEKT 
SEKER 
SEKSW 
SERET 
SESOU 
SET 
SET) 
SET2 
SETAC 
SETB 
SETP 
$etu 
SETU, 
SE,i 
SHALT 
SINHB 
$k 
SKIP 
SKTMO 
SUNCT 
SM 
SMAX 
SMEM 
SM8K 
SMX 
SM,1 
$M,2 
$H,3 
SM. 4 
$M,5 
SPRSK 
SQIKi 
SQIKe2 
SRCH 
SRH 
SSW 
STAC 
START 
STBe 
$TBi 
$T62 
stc 
STC. 
8TC,2 
stc,3 
STC,A 
STINE 
STRC 
STRT 


STR.2 
SUBSE 


820254 


OB4117 
006353 


C80062 
080872 
GO4143 
081242 
084667 
681155 
BOi2i1 
001222 
886320 
086340 
286336 
O06364 
600737 
083340 
004147 
006277 
002774 
1e1e%4 
080162 
O05164 
O@8aih 
000271 
006337 
208506 
621466 
OoSe14 
eese25 
865943 
805046 
208052 
082326 
082607 
004043 
806162 
805088 
008285 
285563 
CO7e14 
008672 
608714 
888735 
082356 
882562 
C0240) 
002412 
082377 
880226 
888574 
068523 


000662 
082456 


t4/34 
44/12 
69/39 
69/24 
16/28 
65/31 
12/09 
12/18 
69/12 
26/04 
79/18 
45/21 
26/26 
26/31 
16/08 
16/285 
6/21 
16/37 
22/04 
58/289 
697/36 
45/5@ 
53/84 
16/81 
12/22 
87/14 
15/22 
44/87 
16/22 
14/40 
38/16 
86/25 
86/32 
86/48 
86/48 
86/22 
41/23 
46/35 
68/84 
677/45 
45/18 
42/36 
15/67 
4/33 
415/28 
aisia 
2y/ii 
43/36 
44/82 
aas%3 
45/64 
43/12 
13/42 
47/42 
477/07 
17/16 
186/35 
43/27 


26/16 
42/43 
69/48 
69/39 
33/47 


28/33 
28/86 
69/27 
26/37 
82/15 
26/84 
26/33 
26/42 
23/25 
16/18 
56/22 
18/13 
22/25 
55/34 
70/23 
90/34 
98/15 
84/24 
28/52 
88/16 
86/22 
26/98 
18709 
38/28 
31/k3 
86/33 
86/34 
86/56 
86/53 
66/56 
43/10 
48/36 
66/13 
87/22 
66/09 
ay/s3i 
95/89 
166/87 
21/685 
21/18 
21/9 
44/86 


45/02 
45/15 
44/15 
2i/t2 
19/16 
417/88 
47/17 
19/26 
43/39 


32/43 
63/28 
70/67 


34/21 


28/12 
55/39 
69/41 
277/08 


27/07 


25/40 
19/17 
61/22 


55/37 


55/21 
534/27 
88/27 


92/49 
19/16 
32/38 


86/57 


49/33 
68/14 
87/41 
86/16 


21/28 
21/22 
44/36 


45/38 


17/09 
17/18 


44/63 


32/53 
65/19 
70/15 
$6749 
55/16 


70/86 
277/00 


65/08 
66/87 


56/29 
55/24 


38/57 
65/07 


68/16 
66/28 


48/18 


17/18 
47/39 


48/18 


36/35 839/15 487/47 
60/18 69726 69/32 
89/29 
40/42 46/11 83/15 
55/18 


70/19 


61/27 


48/49 66/43 66/55 


68/18 


7/48 t7/i4 417745 
18/26 §=26/87 


45/24 48/24 45/27 


@i28 .MAIN 


SVLMD 
SVSTB 
SVTIM 
Swce 
SwCEt 
SwCRE 
Sei 
$8,501 
TBIG 
TERM 
TIMA 
TIMB 
TIMC 
TING, 
TIN2. 
TINC, 
TIND 
TINM, 
TINN, 
TINO 


TINK, 


TINS, 
TINW, 
TINX, 
TLIT 
TRET 
TTWAY 
TUMBL 
TUN 
YUNRE 
TYMCK 
TYME 
TYM,3 
TYM,2 
TYPAC 


TYPAS 
TYPDE 
TYPE 

TYPRE 
TYPZi 


UBP 
UBUFF 
UMSK 
UNIT 


UNTON 
UNTIN 
UNTSK 
UPSEE 
VAR 


888374 
888716 
484656 
283435 
OBS444 
0835460 
B41245 
084666 
60245¢ 
868268 
804623 
@84626 
BB4634 
084475 
004476 
C4418 
20442) 
004455 
004457 
004428 
Ba4415 
084438 
004433 
624412 
@82452 
881376 
005576 
604657 
808562 
0880572 
082553 
@84604 
002567 
@826285 
086322 


Ca6G4) 
086521 
0043557 
864407 
Qb6325 


868263 
206684 
BBA504 
OBG174 


Bo8eS2 
688026 
880046 
CB2444 
866778 


45/32 
15/48 
24/05 
78/16 
57/38 
60/21 
60/19 
26/10 
79/19 
43/35 
14/18 
81/43 
Biss4 
81/15 
76/41 
76/30 
76/04 
76/34 
76/34 
76/44 
76/10 
76/04 
76/18 
76/23 
76/03 
43/33 
28/04 
96/19 
79/09 
18/31 
19/02 
43/40 
78/26 
48/18 
48/22 
16/18 
91/06 
16/33 
16/09 
11/28 
78/04 
16/11 
89/26 
14/19 
14/19 
14/38 
12/27 
27/04 
33/33 
49/28 
56/23 
59/02 
65/27 
41/22 
11/18 
12/02 
43/23 
14/24 


46/84 
40/09 
21/28 
78/29 
$7/43 
68/26 
68/36 
27/44 
79/38 
45/20 
51/85 
81/17 
81/48 
81/34 
76/55 
76/56 
76/40 
82/29 
76/39 


76/44 
76/29 
76/38 
76/28 
45/26 
28/84 
96/29 
82/07 
19/02 
19/09 
44/84 
79/86 
48/16 
46/45 
26/48 
91/86 
19/86 
28/068 
74/12 
735/48 
23/24 
89/30 
38/7089 
108/62 
18/21 
19/83 
26/82 
38/39 
83/44 
56/31 
628/84 
89/18 
43/16 
22/85 
22/89 
43/36 
14/22 


45/36 
21/22 
88/31 
68/682 


60/37 


68/26 
45/46 
52/42 
81/21 
81/26 
81/42 


76/84 
76/32 
45/48 
28/07 
96/46 


£9/18 
48/06 
84/06 


48/32 
277/83 


19/08 


74/45 
78/25 
27/36 
89/34 
49/186 


32/21 
20/745 
29/06 
48/32 
53/27 
57/18 
66/11 
89/37 
13/28 
26/14 


44/309 
188/64 


21/26 
82/86 
68/29 


60/38 


62/14 
48/15 
53/08 
81/25 
81/32 


48/29 
28/09 
97/05 


29/34 


75/84 


28/83 
69/36 
58/18 


24/08 
29/18 
46/85 
84/33 
57/48 
61/23 


54/29 
54/14 


44/18 


68/19 


53/23 


28/17 
97/18 


6a/33 


76/82 


47/24 
91/84 


25/16 
29/17 
46/23 
54/26 
57/47 
61/29 


53/27 
65/18 


45/69 


63/36 


28/19 
97/25 


60/35 


94/56 


47/28 
91/45 


25/37 
29/18 
48/15 
58/69 
58/89 
62/14 


S7/4i 
45/42 


28/57 


68/12 


09/22 
91/35 


26/05 
32/27 
46/27 
55/238 
58/37 
62/382 


62/45 
47/243 
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VARED 
VARET 
VARPT 
VARSP 
VARST 
VAR,@ 
VAR,1 
WAIT 
WAITS 
Wat 
WAYXX 
WOATA 
wOLST 
wOSR 
wOSn 
WE,t 
WE.2 
WORK 
WRITE 
wT 
WTRET 
x12 
XTEST 
ZEROS 
zOcT 
zSuPP 


2 i3M8 
208" 
e2KMs 
23DY 
o 4KMS 
2CMD 
CSW 
2080 
eOSKP 


2F0e8 
oF O83 
oFD8S 
of D10 
oF DAS 
eFD12 
af 020 
F022 
2F 03a 
»fD97 
of096 
aF099 
2680 
26801 
oLST 
eh STL 
oR 
eR2 
aR3 


BGb264 
ee54B6 
888266 
060266 
208263 
66537)1 
005404 
881052 
001057 
6003542 
081070 
88S165 
0e4e11 
O80186 
600076 
609265 
009273 
682325 
806350 
002761 
801067 
0041346 
002442 
005743 
884233 
084312 


6083135 
086254 
000255 
0046515 
680236 
808610 
083657 
085442 
@88055 


825517 
805520 
885522 
ee5550 
085552 
865553 
885554 
885555 
005546 
@85514 
805462 
685450 
001427 
@01582 
820623 
BeG624 
085525 
O455350 
805537 


14/22 
92/684 
414/24 
14/23 
44/24 
15/19 
92769 
16/25 
24a/ie 
15/25 
2asi7 
15/28 
66/65 
12/12 
12/33 
$6/83 
57/19 
42/12 
16/27 
52/18 
24/69 
69/22 
437/16 
96/27 
15/ie 
73/41 
76/35 
15/62 
13/35 
13/36 
76/35 
13/37 
19/2) 
15/36 
15/26 
16/64 
26/24 
68/15 
62/28 
93/24 
93/23 
94/25 
93/38 
93/36 
93/27 
04/54 
93/37 
93/25 
93/47 
93/43 
93/352 
15/42 
30/18 
20/86 
20/07 
58/52 
59/10 
60/07 


Sisié 
asi 
98/12 
61/23 
51/82 
92/04 
92/12 
15/48 
247/25 
84/243 
24/33 
56/86 
66/49 
26/23 
26/16 
67/38 
57/45 
42/28 
34/18 
98/14 
24/18 
70/22 
45/82 
98/396 
73/64 
737/18 
76/37 
22/14 
22/27 
24/33 


54/38 
19/34 
64/88 
93723 
22/06 
267/34 
56/27 
66/088 
9472) 
94/19 
94/46 
93/34 
93/53 
93/39 


94/55 
94/46 
94/16 
93/55 
94/14 
38/04 
38/15 
20/27 
20/14 
61/48 
59/18 
62/82 


92/16 
92/65 
92/87 
90/11 
92/14 


24/18 


56/21 
28/22 
26/\6 
42/33 
39/68 
24/20 


45/16 
99/62 


73/26 
76/45 


36/09 


22/08 
26/35 
56/43 
66/11 


94/22 
93/35 


94/18 
94/09 


31/30 
31/28 


59/335 


92/06 
92/12 


62/35 
87/23 


42/37 
39/44 


aas3t 


45729 


73/54 


22/18 
49/33 
87/17 
66/19 


93/36 
94/54 
94/52 


61749 


92/13 


62/37 
57/25 


41/85 
24/32 
45/468 


76/85 


22/26 
84/15 
58/46 
66/22 


94/50 


62/39 
87/27 


$2/25 


76/7 


24/086 
64/17 
61/25 


76/16 


26/23 
SS/ii 
61749 


@122 MAIN 


TT) 
oRAL 
RAN 
eRDYU 
»READ 
» REO 
eRET 
8c 


SEA 
.8E8 
2 SED 
SEEK 
SEF 
eSET 
» SEX 
»SRET 
e¥OOs 
2W002 
2085S 
»U018 
eU028 
2v02i 
.U0Se 


863574 
@805i3 
880372 
080176 
8835462 
821656 
620753 
886310 


00247) 
082606 
082551 
OBS185 
pe2502 
080754 
002455 
801812 
2054354 
885455 
885436 
085437 
605440 
085441 
00542) 
005225 
0835245 
BB476i 
803147 


6as14 
11/96 
15/49 
12/29 
15/38 
3asie 
22/04 
14/42 
62/23 
46/04 
48/06 
47/16 
18/32 
46/22 
15/43 
43/41 
22721 
92/24 
92/25 
92/22 
92/36 
92/27 
92/35 
92/26 
$7/02 
87/23 
83/23 
15/33 


62/32 
17/18 
37/82 


61/08 
34/29 
22/15 
26/07 
62/33 
a6/ia 
48/32 
a7/aa 
55/06 
46/29 
22/2 
45/34 
22/45 
92/32 
92/34 
92/33 
92/39 
92/58 
92/53 
92/35 
57/43 
57/50 
85/28 
56/07 


39/33 
61/09 


22/16 
56/19 
90/16 
46/16 
48/34 
47/46 


46/31 
22/50 
48/51 
22/51 
92/46 
92/47 
92/48 
92/49 


65/26 
56/88 


56/581 


47/48 
4774s 


61/58 


62/02 


62/665 


